From 559f9b2290a73b338d51fe7d9120a04acf3ad5ce Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 12 Nov 2012 21:23:00 +0100 Subject: [PATCH] Add CLASS aliases --- src/base/defalias.lisp | 11 +++++++++++ src/base/pkgdcl.lisp | 1 + 2 files changed, 12 insertions(+) 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 -- 2.11.4.GIT