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