Skip to content
Snippets Groups Projects
Commit 1c8771de authored by ram's avatar ram
Browse files

Moved TYPE-EXPAND here, and made it use INFO instead of plist hackery.

parent 52494258
No related branches found
No related tags found
No related merge requests found
......@@ -304,6 +304,22 @@
(eq (info variable kind object) :constant))
(list (eq (car object) 'quote))))
;;; Type-Expand -- Interface
;;;
;;; Similar to Macroexpand, but expands deftypes. We don't bother returning
;;; a second value.
;;;
(defun type-expand (form)
(let ((def (cond ((symbolp form)
(info type expander form))
((and (consp form) (symbolp (car form)))
(info type expander (car form)))
(t nil))))
(if def
(type-expand (funcall def (if (consp form) form (list form))))
form)))
;;; Function invocation:
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment