/[gcl]/gcl/ansi-tests/cl-symbols.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cl-symbols.lsp

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

revision 1.18 by pfdietz, Mon Feb 17 04:22:03 2003 UTC revision 1.19 by pfdietz, Fri Feb 21 03:41:17 2003 UTC
# Line 1262  Line 1262 
1262               (if (boundp x)               (if (boundp x)
1263                   (boundp y)                   (boundp y)
1264                 (not (boundp y)))                 (not (boundp y)))
1265               (not (fboundp y))               (if (fboundp x) (fboundp y) (not (fboundp y)))
1266               (null (symbol-package y))               (null (symbol-package y))
1267               (string= (symbol-name x) (symbol-name y))               (string= (symbol-name x) (symbol-name y))
1268               )))               )))
# Line 1287  Line 1287 
1287                   (eqt (symbol-value x)                   (eqt (symbol-value x)
1288                        (symbol-value y))                        (symbol-value y))
1289                 (not (boundp y)))                 (not (boundp y)))
1290               (not (fboundp y))               (if (fboundp x) (fboundp y) (not (fboundp y)))
1291               (null (symbol-package y))               (null (symbol-package y))
1292               (string= (symbol-name x) (symbol-name y))               (string= (symbol-name x) (symbol-name y))
1293               (eql (length (symbol-plist x))               (eql (length (symbol-plist x))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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