X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fknownfun.lisp;h=86f4b85106e99b196940e48739edd11b3ae2c293;hb=77c80b85dc9ae9bde0692d4193187bfca507b936;hp=1be79d5ca8b522673e6517c3fca3770fcf8711a5;hpb=cf607a404d7518e8a18c9e362913f370eb9a5e38;p=sbcl.git diff --git a/src/compiler/knownfun.lisp b/src/compiler/knownfun.lisp index 1be79d5..86f4b85 100644 --- a/src/compiler/knownfun.lisp +++ b/src/compiler/knownfun.lisp @@ -179,8 +179,8 @@ (defun %defknown (names type attributes &key derive-type optimizer) (let ((ctype (specifier-type type)) (info (make-fun-info :attributes attributes - :derive-type derive-type - :optimizer optimizer)) + :derive-type derive-type + :optimizer optimizer)) (target-env *info-environment*)) (dolist (name names) (let ((old-fun-info (info :function :info name)))