Permalink
Browse files

Bugfix: qualify fixnump

  • Loading branch information...
1 parent df8f365 commit ecef2536e5948d74aa7fff227497354eff9de64d Geo Carncross committed May 8, 2008
Showing with 7 additions and 2 deletions.
  1. +5 −0 ChangeLog
  2. +2 −2 swank-ecl.lisp
View
@@ -1,3 +1,8 @@
+2008-05-08 Geo Carncross <geocar@gmail.com>
+
+ * swank-ecl.lisp (call-with-debugging-environment)
+ (frame-decode-env): Bugfix: qualify fixnump
+
2008-05-01 Geo Carncross <geocar@gmail.com>
* swank-ecl.lisp (call-with-debugging-environment)
View
@@ -271,7 +271,7 @@
(when (plusp i)
(let* ((x (elt *backtrace* i))
(name (si::frs-tag f)))
- (unless (fixnump name)
+ (unless (si::fixnump name)
(push name (third x)))))))
(setf *backtrace* (remove-if #'is-ignorable-fun-p (nreverse *backtrace*)))
(Setf *tmp* *backtrace*)
@@ -320,7 +320,7 @@
(record1 (cdr record)))
(cond ((symbolp record0)
(setq variables (acons record0 record1 variables)))
- ((not (fixnump record0))
+ ((not (si::fixnump record0))
(push record1 functions))
((symbolp record1)
(push record1 blocks))

0 comments on commit ecef253

Please sign in to comment.