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

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

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

revision 1.61 by pfdietz, Sun May 4 11:48:00 2003 UTC revision 1.62 by pfdietz, Tue May 6 12:13:26 2003 UTC
# Line 1481  the condition to go uncaught if it canno Line 1481  the condition to go uncaught if it canno
1481  (defun slot-value-or-nil (object slot-name)  (defun slot-value-or-nil (object slot-name)
1482    (and (slot-exists-p object slot-name)    (and (slot-exists-p object slot-name)
1483         (slot-boundp object slot-name)         (slot-boundp object slot-name)
        (slot-value object slot-name)))  
1484           (slot-value object slot-name)))

Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62

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