Changeset 14965


Ignore:
Timestamp:
01/23/17 07:54:06 (7 months ago)
Author:
mevenson
Message:

abcl-introspect: further fixes for stacktrace (Alan Ruttenberg)

Fixes another attempt at accessing package name of nonexistent
package.

Merges <https://github.com/armedbear/abcl/pull/34>.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/contrib/abcl-introspect/stacktrace.lisp

    r14963 r14965  
    5151  (let ((el (car (sys::frame-to-list frame))))
    5252    (let ((package
    53       (cond ((symbolp el)
    54        (symbol-package el)
     53      (cond ((and (symbolp el)
     54      (symbol-package el))
    5555       (package-name (symbol-package el)))
    5656      ;; hack! really I mean anything with a function plist
Note: See TracChangeset for help on using the changeset viewer.