j3pic / cl-htmlprag

Neil Van Dyke's popular HTMLPrag library, ported to Common Lisp.
GNU Lesser General Public License v2.1
5 stars 0 forks source link

Fails to quickload in CCL #1

Open Devon7 opened 5 years ago

Devon7 commented 5 years ago

Here's a portability bug:

$ ccl --no-init --eval '(load "~/quicklisp/setup.lisp")' --eval '(ql:quickload "cl-htmlprag")'
To load "cl-htmlprag":
  Load 1 ASDF system:
    cl-htmlprag
; Loading "cl-htmlprag"
[package schemish].
> Error: Can not redefine a special-form: LET .
> While executing: (SETF MACRO-FUNCTION), in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Skip evaluation of (ql:quickload "cl-htmlprag")
> Type :? for other options.
1 > 

Here's the fix:

diff --git a/schemish.lisp b/schemish.lisp
index 9da2ac0..44dc97a 100644
--- a/schemish.lisp
+++ b/schemish.lisp
@@ -7,6 +7,7 @@
 (cl:defpackage :schemish
   (:documentation "A Scheme-like environment for porting HTMLPrag to Common Lisp. It implements only those features of
 Scheme that were actually used by HTMLPrag.")
+  (:use)
   (:export :let :LAMBDA :Λ :IF :COND :EQ? :PAIR? :CAR :CDR :DEFINE :APPLY :MAP :LENGTH
       :STRING-LENGTH :REVERSE :LIST->STRING :STRING->LIST :NOT :AND :OR :EQUAL?
       :NULL? :LIST? :EOF-OBJECT? :CLOSE-OUTPUT-PORT :CLOSE-INPUT-PORT
Yehouda commented 4 years ago

Needs this for LispWorks too.