\f
;;;; IN-PACKAGE
-(defmacro-mundanely in-package (package-designator)
- `(eval-when (:compile-toplevel :load-toplevel :execute)
- (setq *package* (find-undeleted-package-or-lose ',package-designator))))
+(defmacro-mundanely in-package (string-designator)
+ (let ((string (string string-designator)))
+ `(eval-when (:compile-toplevel :load-toplevel :execute)
+ (setq *package* (find-undeleted-package-or-lose ,string)))))
\f
;;;; MULTIPLE-VALUE-FOO
#+nil (setf (%fun-name def) name)
(when doc
- (setf (fdocumentation name 'function) doc))
+ (setf (fdocumentation name 'function) doc)
+ #!+sb-eval
+ (when (typep def 'sb!eval:interpreted-function)
+ (setf (sb!eval:interpreted-function-documentation def)
+ doc)))
name)
\f
;;;; DEFVAR and DEFPARAMETER