/[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.59 by pfdietz, Sun Apr 20 22:59:25 2003 UTC revision 1.60 by pfdietz, Sat Apr 26 13:51:10 2003 UTC
# Line 1452  the condition to go uncaught if it canno Line 1452  the condition to go uncaught if it canno
1452          (eqlt (classify-error (funcall (macro-function ',macro-name)          (eqlt (classify-error (funcall (macro-function ',macro-name)
1453                                         ',macro-form nil nil))                                         ',macro-form nil nil))
1454                'program-error))                'program-error))
        t t t)))  
1455           t t t)))
1456    
1457    (defun typep* (element type)
1458      (not (not (typep element type))))
1459    
1460    (defun applyf (fn &rest args)
1461      #'(lambda (&rest more-args) (apply fn (append args more-args))))
1462    
1463    (defun slot-boundp* (object slot)
1464      (notnot (slot-boundp object slot)))
1465    
1466    (defun slot-exists-p* (object slot)
1467      (notnot (slot-exists-p object slot)))
1468    
1469    (defun map-slot-boundp* (c slots)
1470      (mapcar (applyf #'slot-boundp c) slots))
1471    
1472    (defun map-slot-exists-p* (c slots)
1473      (mapcar (applyf #'slot-exists-p* c) slots))
1474    
1475    (defun map-slot-value (c slots)
1476      (mapcar (applyf #'slot-value c) slots))
1477    
1478    (defun map-typep* (object types)
1479      (mapcar (applyf #'typep* object) types))

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

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