projects
/
jscl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9fef953
)
Fix SYMBOL-PLIST and (SETF SYMBOL-PLIST)
author
David Vázquez
<davazp@gmail.com>
Thu, 20 Feb 2014 00:04:47 +0000
(
01:04
+0100)
committer
David Vázquez
<davazp@gmail.com>
Thu, 20 Feb 2014 00:04:47 +0000
(
01:04
+0100)
src/symbol.lisp
patch
|
blob
|
history
diff --git
a/src/symbol.lisp
b/src/symbol.lisp
index
0234232
..
02d9514
100644
(file)
--- a/
src/symbol.lisp
+++ b/
src/symbol.lisp
@@
-15,8
+15,10
@@
(defun symbol-plist (x)
(cond
(defun symbol-plist (x)
(cond
- ((symbolp x) (error "`~a' is not a symbol." x))
- ((in "plist" x) (oget* x "plist"))))
+ ((not (symbolp x))
+ (error "`~a' is not a symbol." x))
+ ((in "plist" x)
+ (oget* x "plist"))))
(defun set-symbol-plist (new-value x)
(if (symbolp x)
(defun set-symbol-plist (new-value x)
(if (symbolp x)
@@
-26,12
+28,11
@@
(define-setf-expander symbol-plist (x)
(let ((g!x (gensym))
(g!value (gensym)))
(define-setf-expander symbol-plist (x)
(let ((g!x (gensym))
(g!value (gensym)))
- (list (list g!x)
- (list x)
- (list g!value)
- `(set-symbol-plist ,g!value ,g!x)
- `(symbol-plist ,g!value))))
+ (values (list g!x)
+ (list x)
+ (list g!value)
+ `(set-symbol-plist ,g!value ,g!x)
+ `(symbol-plist ,g!x))))
(defun get (symbol indicator &optional default)
(getf (symbol-plist symbol) indicator default))
(defun get (symbol indicator &optional default)
(getf (symbol-plist symbol) indicator default))
-