From 2feabb4ed156c06f6b5ee1d4e6325fab93d82b74 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Wed, 26 May 2010 23:09:32 +0200 Subject: [PATCH] Reactivated the type propagators for +,/,*,- --- src/cmp/cmptype-prop.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmptype-prop.lsp b/src/cmp/cmptype-prop.lsp index 74f338c68..4410dc871 100644 --- a/src/cmp/cmptype-prop.lsp +++ b/src/cmp/cmptype-prop.lsp @@ -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*)