projects
/
hyperobject.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r3563: *** empty log message ***
[hyperobject.git]
/
views.lisp
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))))