0.6.11.23:

[sbcl.git] / src / pcl / low.lisp

diff --git a/src/pcl/low.lisp b/src/pcl/low.lisp
index b6c25a1..e9539ec 100644 (file)
--- a/src/pcl/low.lisp
+++ b/src/pcl/low.lisp
@@ -96,8 +96,6 @@
   `(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
@@ -161,7 +159,7 @@
         (intern (let ((*package* *pcl-package*)
                       (*print-case* :upcase)
                       (*print-pretty* nil)
-                      (*print-gensym* 't))
+                      (*print-gensym* t))
                   (format nil "~S" name))
                 *pcl-package*))))
 \f
@@ -206,21 +204,21 @@
 (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?")
+       (aver (typep ,wrapper 'wrapper))
        ,wrapper)))
 
 ;;; 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)
-  (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)