Add COMPILER-MACRO aliases
authorStelian Ionescu <sionescu@cddr.org>
Mon, 12 Nov 2012 20:16:44 +0000 (12 21:16 +0100)
committerStelian Ionescu <sionescu@cddr.org>
Mon, 12 Nov 2012 20:16:44 +0000 (12 21:16 +0100)
src/base/defalias.lisp
src/base/pkgdcl.lisp

index 96bf728..a294dae 100644 (file)
@@ -33,7 +33,8 @@
      (setf (fdefinition ',alias)
            (fdefinition ',original))
      (setf (documentation ',alias 'function)
-           (documentation ',original 'function))))
+           (documentation ',original 'function))
+     (defalias (compiler-macro ,alias) ,original)))
 
 (defnamespace macro
   "The namespace of macros.")
      (setf (documentation ',alias 'function)
            (documentation ',original 'function))))
 
+(defnamespace compiler-macro
+  "The namespace of compiler macros.")
+
+(defmethod make-alias ((namespace (eql 'compiler-macro))
+                       original alias)
+  `(progn
+     (setf (compiler-macro-function ',alias)
+           (compiler-macro-function ',original))
+     (setf (documentation ',alias 'compiler-macro)
+           (documentation ',original 'compiler-macro))))
+
 (defnamespace special
   "The namespace of special variables.")
 
index 55f87a5..3970d42 100644 (file)
@@ -34,6 +34,7 @@
    #:make-alias
    #:defalias
    ;; #:function is already in CL
+   ;; #:compiler-macro is already in CL
    #:macro
    #:constant
    ;; #:special is already in CL