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:
2d4f75d
)
r4251: Auto commit for Debian build
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 25 Mar 2003 14:04:03 +0000
(14:04 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 25 Mar 2003 14:04:03 +0000
(14:04 +0000)
package.lisp
patch
|
blob
|
history
diff --git
a/package.lisp
b/package.lisp
index 94273185bcb011227277b13a4df3f5b045ec4fa6..246c3e0f841ab23252497cb9a6885c422dd703b4 100644
(file)
--- a/
package.lisp
+++ b/
package.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: package.lisp,v 1.
29 2003/03/25 14:00:5
3 kevin Exp $
+;;;; $Id: package.lisp,v 1.
30 2003/03/25 14:04:0
3 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;; *************************************************************************
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;; *************************************************************************
@@
-37,8
+37,8
@@
#+sbcl
(eval-when (:compile-toplevel :load-toplevel :execute)
(if (find-package 'sb-mop)
#+sbcl
(eval-when (:compile-toplevel :load-toplevel :execute)
(if (find-package 'sb-mop)
- (pushnew :
sb
-mop cl:*features*)
- (pushnew :
sb
-pcl cl:*features*)))
+ (pushnew :
kmr-sbcl
-mop cl:*features*)
+ (pushnew :
kmr-sbcl
-pcl cl:*features*)))
(eval-when (:compile-toplevel :load-toplevel :execute)
(shadowing-import
(eval-when (:compile-toplevel :load-toplevel :execute)
(shadowing-import
@@
-54,16
+54,16
@@
clos:direct-slot-definition-class clos:compute-effective-slot-definition
clos::compute-effective-slot-definition-initargs
clos:slot-value-using-class)
clos:direct-slot-definition-class clos:compute-effective-slot-definition
clos::compute-effective-slot-definition-initargs
clos:slot-value-using-class)
- #+sbcl-mop
+ #+
kmr-
sbcl-mop
'(sb-mop:class-slots
sb-mop::standard-class
sb-mop:slot-definition-name sb-mop:finalize-inheritance
sb-mop::standard-direct-slot-definition
'(sb-mop:class-slots
sb-mop::standard-class
sb-mop:slot-definition-name sb-mop:finalize-inheritance
sb-mop::standard-direct-slot-definition
- sb-mop::standard-effective-slot-definition sb-
pcl
:validate-superclass
+ sb-mop::standard-effective-slot-definition sb-
mop
:validate-superclass
sb-mop:direct-slot-definition-class sb-mop:compute-effective-slot-definition
sb-mop::compute-effective-slot-definition-initargs
sb-mop:slot-value-using-class)
sb-mop:direct-slot-definition-class sb-mop:compute-effective-slot-definition
sb-mop::compute-effective-slot-definition-initargs
sb-mop:slot-value-using-class)
- #+sbcl-pcl
+ #+
kmr-
sbcl-pcl
'(sb-pcl:class-of sb-pcl:class-name sb-pcl:class-slots sb-pcl:find-class
sb-pcl::standard-class
sb-pcl:slot-definition-name sb-pcl::finalize-inheritance
'(sb-pcl:class-of sb-pcl:class-name sb-pcl:class-slots sb-pcl:find-class
sb-pcl::standard-class
sb-pcl:slot-definition-name sb-pcl::finalize-inheritance
@@
-94,6
+94,6
@@
#+sbcl
(eval-when (:compile-toplevel :load-toplevel :execute)
(if (find-package 'sb-mop)
#+sbcl
(eval-when (:compile-toplevel :load-toplevel :execute)
(if (find-package 'sb-mop)
- (setq cl:*features* (delete :
sb
-mop cl:*features*))
- (setq cl:*features* (delete :
sb
-pcl cl:*features*))))
+ (setq cl:*features* (delete :
kmr-sbcl
-mop cl:*features*))
+ (setq cl:*features* (delete :
kmr-sbcl
-pcl cl:*features*))))