* goops.scm (method): rename list* to cons*.

This commit is contained in:
Rob Browning 2001-04-28 17:18:06 +00:00
commit d3299bc330

View file

@ -498,7 +498,7 @@
(let ((args (cadr exp))
(body (cddr exp)))
`(make <method>
#:specializers (list* ,@(specializers args))
#:specializers (cons* ,@(specializers args))
#:procedure (lambda ,(formals args)
,@(if (null? body)
(list *unspecified*)