Re: ILISP SBCL

--=-=-=

Carlos Agon <[email protected]> writes:

> I am trying to port my soft OpenMusic on SBCL. I have started with the
> 0.8.10 version and now when I move to 0.8.13 I get a problem while
> launching it with e-macs :
>
> "lock on package common lisp violated when declaring / special..."
>
> can somebody help me

I'm not sure that anyone still develops ilisp with a great amount of
seriousness.  However, find attached a patch against ilisp CVS which
should make it load again (you may need to delete ilisp fasls).  I
haven't tested whether this actually works, though it should work
about as well as ilisp did with sbcl 0.8.10.


--=-=-=
Content-Disposition: attachment; filename=ilisp.diff
Content-Description: ilisp fix

? cl-ilisp.fasl
? find-src.fasl
? ilisp-pkg.fasl
? sbcl.fasl
Index: cl-ilisp.lisp
===================================================================
RCS file: /cvsroot/ilisp/ILISP/cl-ilisp.lisp,v
retrieving revision 1.21
diff -u -r1.21 cl-ilisp.lisp
--- cl-ilisp.lisp	3 Nov 2003 04:40:16 -0000	1.21
+++ cl-ilisp.lisp	11 Aug 2004 11:18:46 -0000
@@ -215,15 +215,12 @@
 ;;;
 (defun ilisp-save ()
   "Save the current state of the result history."
-  (declare (special / // /// + ++ +++))
   (unless *ilisp-old-result*
     (setq *ilisp-old-result* (list /// // +++ ++ + /))))
 
 ;;;
 (defun ilisp-restore ()
   "Restore the old result history."
-  (declare (special / // + ++ * ** -))
-    
   (setq // (pop *ilisp-old-result*)
 	** (first //)
 	/  (pop *ilisp-old-result*)

--=-=-=


Cheers,

Christophe
-- 
http://www-jcsu.jesus.cam.ac.uk/~csr21/       +44 1223 510 299/+44 7729 383 757
(set-pprint-dispatch 'number (lambda (s o) (declare (special b)) (format s b)))
(defvar b "~&Just another Lisp hacker~%")    (pprint #36rJesusCollegeCambridge)

--=-=-=--


-------------------------------------------------------
SF.Net email is sponsored by Shop4tech.com-Lowest price on Blank Media
100pk Sonic DVD-R 4x for only $29 -100pk Sonic DVD+R for only $33
Save 50% off Retail on Ink & Toner - Free Shipping and Free Gift.
http://www.shop4tech.com/z/Inkjet_Cartridges/9_108_r285