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

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

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

revision 1.3 by pfdietz, Mon Jan 13 23:19:51 2003 UTC revision 1.4 by pfdietz, Fri Jan 24 04:22:54 2003 UTC
# Line 10  Line 10 
10      (and (not (fboundp g))      (and (not (fboundp g))
11           (setf (symbol-function g) #'car)           (setf (symbol-function g) #'car)
12           (fboundp g)           (fboundp g)
13           (values (eqt (fmakunbound g) g)           (values (eqt (check-values (fmakunbound g)) g)
14                   (fboundp g))))                   (fboundp g))))
15    t nil)    t nil)
16    
# Line 19  Line 19 
19      (and (not (fboundp g))      (and (not (fboundp g))
20           (eval `(defun ,g () nil))           (eval `(defun ,g () nil))
21           (fboundp g)           (fboundp g)
22           (values (eqt (fmakunbound g) g)           (values (eqt (check-values (fmakunbound g)) g)
23                   (fboundp g))))                   (fboundp g))))
24    t nil)    t nil)
25    
# Line 28  Line 28 
28      (and (not (fboundp g))      (and (not (fboundp g))
29           (eval `(defmacro ,g () nil))           (eval `(defmacro ,g () nil))
30           (fboundp g)           (fboundp g)
31           (values (eqt (fmakunbound g) g)           (values (eqt (check-values (fmakunbound g)) g)
32                   (fboundp g))))                   (fboundp g))))
33    t nil)    t nil)
34    
# Line 38  Line 38 
38      (and (not (fboundp n))      (and (not (fboundp n))
39           (eval `(defun ,n () nil))           (eval `(defun ,n () nil))
40           (fboundp n)           (fboundp n)
41           (values (equal (fmakunbound n) n)           (values (equal (check-values (fmakunbound n)) n)
42                   (fboundp n))))                   (fboundp n))))
43    t nil)    t nil)
44    

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