[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
that's sys:generic-function-p, not pcl:generic-function-p
- To: commonloops.pa@Xerox.COM
- Subject: that's sys:generic-function-p, not pcl:generic-function-p
- From: James J. Cherry <cherry@VALLECITO.SCRC.Symbolics.COM>
- Date: Mon, 14 Mar 88 00:56 EST
- Cc: hornig@VALLECITO.SCRC.Symbolics.COM
- Redistributed: commonloops.pa@XEROX.ARPA
From 3600-low.lisp, the call to generic-function-p in
setup-function-specs-to-edit-advice-1 is missing the sys: package.
This breaks the c-e debugger cmd on smbx systems.
(defun setup-function-specs-to-edit-advice-1 (spec)
(and (or (symbolp spec)
(and (listp spec) (eq (car spec) 'setf)))
(gboundp spec)
(sys:generic-function-p (gdefinition spec))
;; ^^^^
(mapcar #'(lambda (m)
(make-method-spec spec
(method-options m)
(unparse-specializers
(method-type-specifiers m))))
(generic-function-methods (gdefinition spec)))))