projects
/
hyperobject.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
1683d93
)
r4449: Auto commit for Debian build
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 12 Apr 2003 03:37:52 +0000
(
03:37
+0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 12 Apr 2003 03:37:52 +0000
(
03:37
+0000)
mop.lisp
patch
|
blob
|
history
diff --git
a/mop.lisp
b/mop.lisp
index 01ba7ade215e6c154c689884cd9072a4bfebe55b..9e6eee67d4f789a82b2a3990c507418ac65a72ae 100644
(file)
--- a/
mop.lisp
+++ b/
mop.lisp
@@
-11,7
+11,7
@@
;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
-;;;; $Id: mop.lisp,v 1.4
2 2003/04/12 03:30
:52 kevin Exp $
+;;;; $Id: mop.lisp,v 1.4
3 2003/04/12 03:37
:52 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
@@
-343,10
+343,10
@@
(name-class subobject) (name-slot subobject) (lookup subobject) (lookup-keys subobject))
)
(push subobject subobjects))))
(name-class subobject) (name-slot subobject) (lookup subobject) (lookup-keys subobject))
)
(push subobject subobjects))))
- ;;
allegro and lispworks don't
reverse class-slots compared to the defclass form
- ;; subobject is already reversed from the dolist/push loop, so re-reverse on cmu/sbcl
/scl
- #+(or cmu sbcl
scl
) subobjects
- #-(or cmu sbcl
scl
) (nreverse subobjects)
+ ;;
sbcl/cmu
reverse class-slots compared to the defclass form
+ ;; subobject is already reversed from the dolist/push loop, so re-reverse on cmu/sbcl
+ #+(or cmu sbcl) subobjects
+ #-(or cmu sbcl) (nreverse subobjects)
)))
(defun finalize-documentation (cl)
)))
(defun finalize-documentation (cl)
@@
-385,9
+385,9
@@
:lookup it
:link-parameters (slot-value esd 'hyperlink-parameters))
hyperlinks)))
:lookup it
:link-parameters (slot-value esd 'hyperlink-parameters))
hyperlinks)))
- ;; cmu/sbcl
/scl
reverse class-slots compared to the defclass form
- ;; hyperlinks is already reversed from the dolist/push loop, so re-reverse on sbcl/
scl/
cmu
- #-(or cmu sbcl
scl
) (setq hyperlinks (nreverse hyperlinks))
+ ;; cmu/sbcl reverse class-slots compared to the defclass form
+ ;; hyperlinks is already reversed from the dolist/push loop, so re-reverse on sbcl/cmu
+ #-(or cmu sbcl) (setq hyperlinks (nreverse hyperlinks))
(setf (slot-value cl 'hyperlinks) hyperlinks)))
(defun init-hyperobject-class (cl)
(setf (slot-value cl 'hyperlinks) hyperlinks)))
(defun init-hyperobject-class (cl)
@@
-419,8
+419,8
@@
(defun hyperobject-class-hyperlinks (obj)
(hyperlinks (class-of obj)))
(defun hyperobject-class-hyperlinks (obj)
(hyperlinks (class-of obj)))
-(defun hyperobject-class-
field
s (obj)
- ;; cmucl/sbcl
/scl
reverse class-slots
- #+(or cmu sbcl
scl
) (reverse (class-slots (class-of obj)))
- #-(or cmu sbcl
scl
) (class-slots (class-of obj)))
+(defun hyperobject-class-
slot
s (obj)
+ ;; cmucl/sbcl reverse class-slots
+ #+(or cmu sbcl) (reverse (class-slots (class-of obj)))
+ #-(or cmu sbcl) (class-slots (class-of obj)))