[slime-cvs] CVS slime

[gcarncross]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv4368

Modified Files:
	swank-ecl.lisp 
Log Message:
Bugfix: qualify fixnump

--- /project/slime/cvsroot/slime/swank-ecl.lisp	2008/05/02 01:43:23	1.22
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2008/05/08 22:55:02	1.23
@@ -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))