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

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

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

revision 1.10 by pfdietz, Sun Dec 26 15:58:08 2004 UTC revision 1.11 by pfdietz, Sat Jan 8 13:35:39 2005 UTC
# Line 43  Line 43 
43   (defun (setf defun-test-fun-4) (newval x)   (defun (setf defun-test-fun-4) (newval x)
44     (return-from defun-test-fun-4 (setf (car x) newval))))     (return-from defun-test-fun-4 (setf (car x) newval))))
45    
46    (deftest defun.5
47      (let ((x 1))
48        (declare (special x))
49        (let ((x 2))
50          (defun defun-test-fun-5 (&aux (y x))
51            (declare (special x))
52            (values y x))
53          (defun-test-fun-5)))
54      2 1)
55    
56    (deftest defun.6
57      (let ((x 1))
58        (declare (special x))
59        (let ((x 2))
60          (defun defun-test-fun-5 (&optional (y x))
61            (declare (special x))
62            (values y x))
63          (defun-test-fun-5)))
64      2 1)
65    
66    (deftest defun.7
67      (let ((x 1))
68        (declare (special x))
69        (let ((x 2))
70          (defun defun-test-fun-5 (&key (y x))
71            (declare (special x))
72            (values y x))
73          (defun-test-fun-5)))
74      2 1)
75    
76  ;;; Error tests  ;;; Error tests
77    
78  (deftest defun.error.1  (deftest defun.error.1

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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