/[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.66 by pfdietz, Fri Jun 13 12:01:28 2003 UTC revision 1.67 by pfdietz, Mon Jun 16 11:38:15 2003 UTC
# Line 1476  the condition to go uncaught if it canno Line 1476  the condition to go uncaught if it canno
1476  ;;; (when (typep (find-class 'standard-class) 'standard-class)  ;;; (when (typep (find-class 'standard-class) 'standard-class)
1477  ;;;  (defclass substandard-class (standard-class) ())  ;;;  (defclass substandard-class (standard-class) ())
1478  ;;;  (defparameter *can-define-metaclasses* t))  ;;;  (defparameter *can-define-metaclasses* t))
1479    
1480    ;;; Macro for testing that something is undefined but 'harmless'
1481    
1482    (defmacro defharmless (name form)
1483      `(deftest ,name
1484         (block done
1485           (let ((*debugger-hook* #'(lambda (&rest args)
1486                                      (declare (ignore args))
1487                                      (return-from done :good))))
1488             (handler-case
1489              (unwind-protect (eval ',form) (return-from done :good))
1490              (condition () :good))))
1491         :good))

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

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