Browse files

Use STANDARD-PROPERTY-* symbols as name for property classes

Do not use gensymed classes, as it is not working on clisp. See about
similarity relationship in the CLHS to more information.
  • Loading branch information...
davazp committed Jan 21, 2012
1 parent d63997b commit f1b91bcb65ba623528766a35b47a79bf9a2e9e6c
Showing with 5 additions and 3 deletions.
  1. +1 −1 property.lisp
  2. +4 −2 utils.lisp
@@ -222,7 +222,7 @@
(check-type allow-x-parameters-p boolean)
(check-type allow-other-parameters-p boolean)
(let* ((superclasses '(property))
- (name (gensym "PROPERTY"))
+ (name (symbolize "STANDARD-PROPERTY-" real-name))
(types (mklist type))
(default-type (first types))
(multiple-type-p (< 1 (length types))))
@@ -23,8 +23,10 @@
;;;; Misc macros
(eval-when (:compile-toplevel :load-toplevel :execute)
- (defun symbolize (symbol1 symbol2)
- (intern (concatenate 'string (string symbol1) (string symbol2)))))
+ ;; Given two string designators, concatenate the strings and intern
+ ;; the symbol in a package. By default, current package is used.
+ (defun symbolize (string1 string2 &optional (package *package*))
+ (intern (concatenate 'string (string string1) (string string2)))))
(defmacro until (condition &body code)
`(do () (,condition) ,@code))

0 comments on commit f1b91bc

Please sign in to comment.