mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-10 07:00:20 -07:00
Code Issues Projects Releases Packages Wiki Activity

Reactivated the type propagators for +,/,*,-

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-26 23:09:32 +02:00
parent eea9b102ad
commit 2feabb4ed1
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmptype-prop.lsp
View file

@ -69,9 +69,9 @@
(unless (member '&rest lambda-list)
(let ((var (gensym)))
(setf lambda-list (append lambda-list (list '&rest var))
body (list* `(declare (ignorable ,var)) body)))
`(setf (gethash ',fname *p0-dispatch-table*)
#'(ext:lambda-block ,fname ,lambda-list ,@body))))
body (list* `(declare (ignorable ,var)) body))))
`(setf (gethash ',fname *p0-dispatch-table*)
#'(ext:lambda-block ,fname ,lambda-list ,@body)))
(defun copy-type-propagator (orig dest-list)
(loop with function = (gethash orig *p0-dispatch-table*)