Add CLASS aliases
authorStelian Ionescu <sionescu@cddr.org>
Mon, 12 Nov 2012 20:23:00 +0000 (21:23 +0100)
committerStelian Ionescu <sionescu@cddr.org>
Mon, 12 Nov 2012 20:23:00 +0000 (21:23 +0100)
src/base/defalias.lisp
src/base/pkgdcl.lisp

index a294dae..4988dc7 100644 (file)
      (define-symbol-macro ,alias ,original)
      (setf (documentation ',alias 'variable)
            (documentation ',original 'variable))))
+
+(defnamespace class
+  "The namespace of classes.")
+
+(defmethod make-alias ((namespace (eql 'class))
+                       original alias)
+  `(progn
+     (setf (find-class ,alias)
+           (find-class ,original))
+     (setf (documentation ',alias 'type)
+           (documentation ',original 'type))))
index 3970d42..ffff37d 100644 (file)
@@ -38,6 +38,7 @@
    #:macro
    #:constant
    ;; #:special is already in CL
+   ;; #:class is already in CL
    ;; DEFFOLDABLE
    #:deffoldable
    #:constant-form-value