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

Bug in Mike Thome's Enhancement

I found a bug in the enhancement for Genera, here is a fix:

Andreas Girgensohn
andreasg@boulder.colorado.edu

;;; genera-low.lisp

(defun pcl-fdefine-helper (gspec qualifiers specializers fn)
  (let* ((dlist (scl:debugging-info fn))
	 (class (cadr (assoc 'pcl-method-class dlist)))
	 (doc (cadr (assoc 'pcl-documentation dlist)))
	 (llist (cadr (assoc 'pcl-lambda-list dlist)))
	 (plist (cadr (assoc 'pcl-plist dlist))))
    (load-defmethod
      (or class 'standard-method)
      gspec
      qualifiers
      specializers
      llist					; was: (arglist fn)
      doc
      (getf plist :isl-cache-symbol)
      plist
      fn)))