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)) |