the accessor of foo? slots is foo?
Thu May 21 15:29:39 PDT 2009 attila.lendvai@gmail.com
* the accessor of foo? slots is foo?
diff -rN -u old-defclass-star/defclass-star.lisp new-defclass-star/defclass-star.lisp
--- old-defclass-star/defclass-star.lisp 2014-07-14 00:18:27.000000000 -0700
+++ new-defclass-star/defclass-star.lisp 2014-07-14 00:18:27.000000000 -0700
@@ -67,7 +67,12 @@
(defun default-accessor-name-transformer (name definition)
(let ((type (getf definition :type))
- (package (slot-name-package name)))
+ (package (if (packagep *accessor-name-package*)
+ *accessor-name-package*
+ (case *accessor-name-package*
+ (:slot-name (symbol-package name))
+ (:default *package*)
+ (t *package*)))))
(if (eq type 'boolean)
(let* ((name-string (string name))
(last-char (aref name-string (1- (length name-string)))))