Here it is:
diff -u -r1.157 swank-openmcl.lisp --- swank-openmcl.lisp 16 Jan 2009 15:49:40 -0000 1.157 +++ swank-openmcl.lisp 26 Jan 2009 20:31:48 -0000 @@ -925,6 +925,9 @@ (< (symbol-value s) 255)) (setf (gethash (symbol-value s) *value2tag*) s)))
+(defimplementation macroexpand-all (form) + (ccl:macroexpand-all form)) + ;;;; Inspection
(defimplementation describe-primitive-type (thing)
Stas Boukarev stassats@gmail.com writes:
Here it is:
diff -u -r1.157 swank-openmcl.lisp --- swank-openmcl.lisp 16 Jan 2009 15:49:40 -0000 1.157 +++ swank-openmcl.lisp 26 Jan 2009 20:31:48 -0000 @@ -925,6 +925,9 @@ (< (symbol-value s) 255)) (setf (gethash (symbol-value s) *value2tag*) s)))
+(defimplementation macroexpand-all (form)
- (ccl:macroexpand-all form))
;;;; Inspection
(defimplementation describe-primitive-type (thing)
This will cause a reader-error at read-time on older versions of CCL. Look at SBCL-WITH-SYMBOL in swank-sbcl.lisp for how this is usually dealt with in a backwards-compatible manner.
-T.
On Tue, Jan 27, 2009 at 1:00 AM, Tobias C. Rittweiler tcr@freebits.de wrote:
Stas Boukarev stassats@gmail.com writes:
Here it is:
diff -u -r1.157 swank-openmcl.lisp --- swank-openmcl.lisp 16 Jan 2009 15:49:40 -0000 1.157 +++ swank-openmcl.lisp 26 Jan 2009 20:31:48 -0000 @@ -925,6 +925,9 @@ (< (symbol-value s) 255)) (setf (gethash (symbol-value s) *value2tag*) s)))
+(defimplementation macroexpand-all (form)
- (ccl:macroexpand-all form))
;;;; Inspection
(defimplementation describe-primitive-type (thing)
This will cause a reader-error at read-time on older versions of CCL. Look at SBCL-WITH-SYMBOL in swank-sbcl.lisp for how this is usually dealt with in a backwards-compatible manner.
Ok, attached patch should deal with that.
Stas Boukarev stassats@gmail.com writes:
Ok, attached patch should deal with that.
Applied. Thanks!
-T.
-
Stas Boukarev -
Tobias C. Rittweiler