[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

that's sys:generic-function-p, not pcl:generic-function-p



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)))))