projects
/
hyperobject.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
538edee
)
r3563: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Thu, 5 Dec 2002 18:31:36 +0000
(18:31 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Thu, 5 Dec 2002 18:31:36 +0000
(18:31 +0000)
views.lisp
patch
|
blob
|
history
diff --git
a/views.lisp
b/views.lisp
index 49f7f067682f7179c5514927513aad49b61bd2d5..f6f052f9c23e2e821c3ac6ff8e0ffa892e458e3c 100644
(file)
--- a/
views.lisp
+++ b/
views.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: views.lisp,v 1.
6 2002/12/03 00:12:55
kevin Exp $
+;;;; $Id: views.lisp,v 1.
7 2002/12/05 18:31:36
kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
@@
-496,9
+496,7
@@
(let ((link-start
(make-link-start x (link-ref fmt) (name ref) (lookup ref)
(nth (position (name ref)
(let ((link-start
(make-link-start x (link-ref fmt) (name ref) (lookup ref)
(nth (position (name ref)
- (hyperobject-class-fields x)
- :key #'(lambda (x)
- (slot-definition-name x)))
+ (slot-value x 'print-slots))
field-values)
(append (link-parameters ref) refvars)))
(link-end (make-link-end x (link-ref fmt) (name ref))))
field-values)
(append (link-parameters ref) refvars)))
(link-end (make-link-end x (link-ref fmt) (name ref))))