/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.284 by lgorrie, Sun Mar 6 21:43:33 2005 UTC revision 1.285 by lgorrie, Mon Mar 7 08:46:55 2005 UTC
# Line 1288  Return three values: keyword, argument n Line 1288  Return three values: keyword, argument n
1288    
1289  (progn  (progn
1290    (assert (equalp (decode-keyword-arg 'x)    (assert (equalp (decode-keyword-arg 'x)
1291                    (make-keyword-arg :x 'x nil))                    (make-keyword-arg :x 'x nil)))
1292    (assert (equalp (decode-keyword-arg '(x t))    (assert (equalp (decode-keyword-arg '(x t))
1293                    (make-keyword-arg :x 'x t))))                    (make-keyword-arg :x 'x t)))
1294    (assert (equalp (decode-keyword-arg '((:x y)))    (assert (equalp (decode-keyword-arg '((:x y)))
1295                    (make-keyword-arg :x 'y nil)))                    (make-keyword-arg :x 'y nil)))
1296    (assert (equalp (decode-keyword-arg '((:x y) t))    (assert (equalp (decode-keyword-arg '((:x y) t))
1297                    (make-keyword-arg :x 'y t))))                    (make-keyword-arg :x 'y t))))
1298    
1299  (defstruct (optional-arg  (defstruct (optional-arg

Legend:
Removed from v.1.284  
changed lines
  Added in v.1.285

  ViewVC Help
Powered by ViewVC 1.1.5