projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.11.17:
[sbcl.git]
/
src
/
pcl
/
low.lisp
diff --git
a/src/pcl/low.lisp
b/src/pcl/low.lisp
index
b6c25a1
..
f09eba4
100644
(file)
--- a/
src/pcl/low.lisp
+++ b/
src/pcl/low.lisp
@@
-96,8
+96,6
@@
`(wrapper-class* (std-instance-wrapper ,instance)))
\f
`(wrapper-class* (std-instance-wrapper ,instance)))
\f
-;;; SET-FUNCTION-NAME
-;;;
;;; When given a function should give this function the name <new-name>.
;;; Note that <new-name> is sometimes a list. Some lisps get the upset
;;; in the tummy when they start thinking about functions which have
;;; When given a function should give this function the name <new-name>.
;;; Note that <new-name> is sometimes a list. Some lisps get the upset
;;; in the tummy when they start thinking about functions which have
@@
-161,7
+159,7
@@
(intern (let ((*package* *pcl-package*)
(*print-case* :upcase)
(*print-pretty* nil)
(intern (let ((*package* *pcl-package*)
(*print-case* :upcase)
(*print-pretty* nil)
- (*print-gensym* 't))
+ (*print-gensym* t))
(format nil "~S" name))
*pcl-package*))))
\f
(format nil "~S" name))
*pcl-package*))))
\f
@@
-206,7
+204,7
@@
(defmacro built-in-or-structure-wrapper (x) `(sb-kernel:layout-of ,x))
(defmacro get-wrapper (inst)
(defmacro built-in-or-structure-wrapper (x) `(sb-kernel:layout-of ,x))
(defmacro get-wrapper (inst)
- (sb-int:once-only ((wrapper `(wrapper-of ,inst)))
+ (once-only ((wrapper `(wrapper-of ,inst)))
`(progn
(assert (typep ,wrapper 'wrapper) () "What kind of instance is this?")
,wrapper)))
`(progn
(assert (typep ,wrapper 'wrapper) () "What kind of instance is this?")
,wrapper)))
@@
-214,13
+212,13
@@
;;; FIXME: could be an inline function (like many other things around
;;; here)
(defmacro get-instance-wrapper-or-nil (inst)
;;; FIXME: could be an inline function (like many other things around
;;; here)
(defmacro get-instance-wrapper-or-nil (inst)
- (sb-int:once-only ((wrapper `(wrapper-of ,inst)))
+ (once-only ((wrapper `(wrapper-of ,inst)))
`(if (typep ,wrapper 'wrapper)
,wrapper
nil)))
(defmacro get-slots-or-nil (inst)
`(if (typep ,wrapper 'wrapper)
,wrapper
nil)))
(defmacro get-slots-or-nil (inst)
- (sb-int:once-only ((n-inst inst))
+ (once-only ((n-inst inst))
`(when (pcl-instance-p ,n-inst)
(if (std-instance-p ,n-inst)
(std-instance-slots ,n-inst)
`(when (pcl-instance-p ,n-inst)
(if (std-instance-p ,n-inst)
(std-instance-slots ,n-inst)