use #:foo to play well with readtable case...
Wed Jul 1 08:25:22 PDT 2009 attila.lendvai@gmail.com
* use #:foo to play well with readtable case...
diff -rN -u old-defclass-star/defclass-star.lisp new-defclass-star/defclass-star.lisp
--- old-defclass-star/defclass-star.lisp 2014-07-27 21:15:40.000000000 -0700
+++ new-defclass-star/defclass-star.lisp 2014-07-27 21:15:40.000000000 -0700
@@ -84,8 +84,8 @@
;; i like unconditional -p postfix. ymmv.
#+nil((not (find #\- name-string))
(concatenate-symbol name "P" package))
- (t (concatenate-symbol name "-P" package))))
- (concatenate-symbol name "-OF" package))))
+ (t (concatenate-symbol name '#:-P package))))
+ (concatenate-symbol name '#:-OF package))))
(defun dwim-accessor-name-transformer (name definition)
(let ((type (getf definition :type))
@@ -94,8 +94,8 @@
(let* ((name-string (string name)))
(if (char= #\? (elt name-string (1- (length name-string))))
name
- (concatenate-symbol name "?" package)))
- (concatenate-symbol name "-OF" package))))
+ (concatenate-symbol name '#:? package)))
+ (concatenate-symbol name '#:-OF package))))
(defun default-initarg-name-transformer (name definition)
(declare (ignorable definition))