Skip to content
Browse files

ABCL support from Mark Evenson <evenson@panix.com>

  • Loading branch information...
1 parent 4061b30 commit df7f84268f24e343a6d3e843378ddaebb2733131 Gary King committed
Showing with 7 additions and 0 deletions.
  1. +1 −0 dev/packages.lisp
  2. +6 −0 dev/port.lisp
View
1 dev/packages.lisp
@@ -12,6 +12,7 @@
#+cmu #:clos-mop
#+sbcl #:sb-mop
#+scl #:clos
+ #+abcl #:mop
#:class-direct-subclasses
#:class-direct-superclasses
#:class-precedence-list)
View
6 dev/port.lisp
@@ -145,6 +145,12 @@ returns a string with the corresponding backtrace.")
(with-output-to-string (s)
(system::print-backtrace :out s)))
+#+abcl
+(defun get-backtrace (error)
+ (declare (ignore error))
+ (sys::backtrace-as-list))
+
+
#+(or cmucl scl)
(defun get-backtrace-as-string (error)
(declare (ignore error))

0 comments on commit df7f842

Please sign in to comment.
Something went wrong with that request. Please try again.