From: Stelian Ionescu <sionescu@cddr.org>
Date: Mon, 12 Nov 2012 20:23:00 +0000 (+0100)
Subject: Add CLASS aliases
X-Git-Tag: v0.8.0~30
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/559f9b2290a73b338d51fe7d9120a04acf3ad5ce

Add CLASS aliases
---

diff --git a/src/base/defalias.lisp b/src/base/defalias.lisp
index a294dae..4988dc7 100644
--- a/src/base/defalias.lisp
+++ b/src/base/defalias.lisp
@@ -77,3 +77,14 @@
      (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))))
diff --git a/src/base/pkgdcl.lisp b/src/base/pkgdcl.lisp
index 3970d42..ffff37d 100644
--- a/src/base/pkgdcl.lisp
+++ b/src/base/pkgdcl.lisp
@@ -38,6 +38,7 @@
    #:macro
    #:constant
    ;; #:special is already in CL
+   ;; #:class is already in CL
    ;; DEFFOLDABLE
    #:deffoldable
    #:constant-form-value