/[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.60 by pfdietz, Sat Apr 26 13:51:10 2003 UTC revision 1.61 by pfdietz, Sun May 4 11:48:00 2003 UTC
# Line 1477  the condition to go uncaught if it canno Line 1477  the condition to go uncaught if it canno
1477    
1478  (defun map-typep* (object types)  (defun map-typep* (object types)
1479    (mapcar (applyf #'typep* object) types))    (mapcar (applyf #'typep* object) types))
1480    
1481    (defun slot-value-or-nil (object slot-name)
1482      (and (slot-exists-p object slot-name)
1483           (slot-boundp object slot-name)
1484           (slot-value object slot-name)))

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

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