mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 13:21:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

Use the new routines for multiple values type to implement c1form-primary-type

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-05 09:44:28 +02:00
parent 1b8bb0bef1
commit aebe505993
1 changed files with 1 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/cmp/cmpmac.lsp
View file

@ -141,16 +141,7 @@
(defun c1form-primary-type (form)
(let ((type (c1form-type form)))
(when (and (consp type) (eq (first type) 'VALUES))
(let ((subtype (second type)))
(when (or (eq subtype '&optional) (eq subtype '&rest))
(setf subtype (third (c1form-type form)))
(when (eq subtype '&optional)
(cmperr "Syntax error in type expression ~S" type)))
(when (eq subtype '&rest)
(cmperr "Syntax error in type expression ~S" type))
(setf type subtype)))
type))
(values-type-primary-type type)))
(defun find-node-in-list (home-node list)
(flet ((parent-node-p (node presumed-child)