592 |
|
|
593 |
(defmacro maybe-eval (x) `(if (and (consp ,x) (eq (car ,x) 'load-time-value)) (eval (cadr ,x)) ,x)) |
(defmacro maybe-eval (x) `(if (and (consp ,x) (eq (car ,x) 'load-time-value)) (eval (cadr ,x)) ,x)) |
594 |
|
|
595 |
|
;;FIXME loose the ar and default to t |
596 |
(defun normalize-type-int (type ar &aux tem) |
(defun normalize-type-int (type ar &aux tem) |
597 |
(cond ((atom type) (normalize-type-int (list type) ar)) |
(cond ((atom type) (normalize-type-int (list type) ar)) |
598 |
;;These are deftype accelerators |
;;These are deftype accelerators |