(string-equal (transform-note x) note)
(eq (transform-important x) important)))
(fun-info-transforms info))))
- (if old
- (setf (transform-function old) fun
- (transform-note old) note)
- (push (make-transform :type ctype :function fun :note note
- :important important)
- (fun-info-transforms info)))
+ (cond (old
+ (style-warn "Overwriting ~S" old)
+ (setf (transform-function old) fun
+ (transform-note old) note))
+ (t
+ (push (make-transform :type ctype :function fun :note note
+ :important important)
+ (fun-info-transforms info))))
name))
;;; Make a FUN-INFO structure with the specified type, attributes
(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)))
;;; shared, we copy it. We don't have to copy the lists, since each
;;; function that has generators or transforms has already been
;;; through here.
-(declaim (ftype (function (t) fun-info) fun-info-or-lose))
+(declaim (ftype (sfunction (t) fun-info) fun-info-or-lose))
(defun fun-info-or-lose (name)
(let (;; FIXME: Do we need this rebinding here? It's a literal
;; translation of the old CMU CL rebinding to