/[gcl]/gcl/ansi-tests/remf.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/remf.lsp

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

revision 1.3 by pfdietz, Sun Jun 20 20:06:23 2004 UTC revision 1.4 by pfdietz, Mon Nov 29 13:23:38 2004 UTC
# Line 52  Line 52 
52       pa))       pa))
53    nil #((:a 1) nil (:c 3) (:d 4)))    nil #((:a 1) nil (:c 3) (:d 4)))
54    
55    (deftest remf.order.3
56      (let ((x (list 'a 'b 'c 'd)))
57        (progn
58          "See CLtS 5.1.3"
59          (values
60           (remf x (progn (setq x (list 'e 'f)) 'a))
61           x)))
62      nil (e f))
63    
64  (def-macro-test remf.error.1 (remf x 'a))  (def-macro-test remf.error.1 (remf x 'a))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26