if a boolean slot is named foo? then use it as its accessor
Fri May 30 16:11:54 PDT 2008 attila.lendvai@gmail.com
* if a boolean slot is named foo? then use it as its accessor
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-defclass-star/defclass-star.lisp new-defclass-star/defclass-star.lisp
--- old-defclass-star/defclass-star.lisp 2014-07-25 09:00:14.000000000 -0700
+++ new-defclass-star/defclass-star.lisp 2014-07-25 09:00:14.000000000 -0700
@@ -70,6 +70,9 @@
(last-char (aref name-string (1- (length name-string)))))
(cond ((char-equal last-char #\p)
name)
+ ((char= #\? (elt name-string (1- (length name-string))))
+ ;; leave it alone if it's a foo?
+ name)
;; i like unconditional -p postfix. ymmv.
#+nil((not (find #\- name-string))
(concatenate-symbol name "P" package))