Skip to content
Snippets Groups Projects
Commit ab8717da authored by ram's avatar ram
Browse files

If WHEN not supplied to %DEFTRANSFORM, defaults to :NATIVE, not NIL.

parent e5ba7784
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/knownfun.lisp,v 1.19 1993/05/11 13:55:34 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/knownfun.lisp,v 1.20 1993/05/13 12:52:31 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -175,7 +175,8 @@
(proclaim '(function %deftransform
(t list function &optional (or string null)
(member t nil) (member :native :byte :both))))
(defun %deftransform (name type fun &optional note important when)
(defun %deftransform (name type fun &optional note important
(when :native))
(let* ((ctype (specifier-type type))
(note (or note "optimize"))
(info (function-info-or-lose name))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment