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

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

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

revision 1.4 by pfdietz, Mon Jan 13 14:11:49 2003 UTC revision 1.5 by pfdietz, Fri Jan 24 04:22:54 2003 UTC
# Line 6  Line 6 
6  (in-package :cl-test)  (in-package :cl-test)
7    
8  (deftest fboundp.1  (deftest fboundp.1
9    (not (fboundp 'car))    (not-mv (fboundp 'car))
10    nil)    nil)
11    
12  (deftest fboundp.2  (deftest fboundp.2
13    (not (fboundp 'cdr))    (not-mv (fboundp 'cdr))
14    nil)    nil)
15    
16  (deftest fboundp.3  (deftest fboundp.3
17    (not (fboundp 'defun))  ; a macro    (not-mv (fboundp 'defun))  ; a macro
18    nil)    nil)
19    
20  (deftest fboundp.4  (deftest fboundp.4
# Line 24  Line 24 
24    
25  (defun fboundp-5-fn (x) x)  (defun fboundp-5-fn (x) x)
26  (deftest fboundp.5  (deftest fboundp.5
27    (not (fboundp 'fboundp-5-fn))    (not-mv (fboundp 'fboundp-5-fn))
28    nil)    nil)
29    
30  (eval-when (eval compile)  (eval-when (eval compile)
# Line 32  Line 32 
32      (defun (setf fboundp-6-accessor) (y x) (setf (car x) y))))      (defun (setf fboundp-6-accessor) (y x) (setf (car x) y))))
33    
34  (deftest fboundp.6  (deftest fboundp.6
35    (not (fboundp '(setf fboundp-6-accessor)))    (not-mv (fboundp '(setf fboundp-6-accessor)))
36    nil)    nil)
37    
38  (deftest fboundp.7  (deftest fboundp.7

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

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