[Prev][Next][Index][Thread]

Compiling for SunOs 4.1.3, ACL 4.2

I'm trying to compile cl-http for SunOs 4.1.3 using ACL 4.2.

First error occurred like:

....
; --- Compiling file /user/ ... /server/package.lisp ---
; Compiling ADD-NICKNAME
; While compiling (:TOP-LEVEL-FORM "package.lisp" 1):
Error: Package `COMMON-LISP' is locked against changes by RENAME-PACKAGE.
  [condition type: PACKAGE-LOCKED-ERROR]
....

So I added like:

#-Genera
(eval-when (compile load eval)
  (defmacro add-nickname (package nickname)
    `(let ((pkg (find-package ,package))
           (*enable-package-locked-errors* nil)) ;;; For ACL
...

2nd error was:

; --- Compiling file /user/ ... /server/utils.lisp ---
; Compiling BITMASK
.....
; Compiling WITH-STRING-FOR-NULL-STREAM
; Compiling WITH-STANDARD-SERVER-IO-SYNTAX
Error: NIL is a constant and can't be bound
Problem detected when processing
       (LET* ((#:G1718 #) (NIL #) (BODY #)) `(LET (# #) ,@BODY))
inside (LET* () (LET* (# # #) `(LET # ,@BODY)))
....

I found '() in following code of utils.lisp and removed it.

(define-macro with-standard-server-io-syntax (() &body body)
  "Binds Lisp input/output to standard default values ..."
  `(let ((*read-eval* nil)
	 (*print-pretty* nil))
     ,@body))

Then the 3rd error occurred(I don't figure out the reason yet)
; --- Compiling file /user/ ... /server/html2.lisp ---
; Compiling %WRITE-COMMAND-KEY-ARG
...
Warning: tag EXCL::END-LOOP is never referenced
Warning: tag EXCL::END-LOOP is never referenced
...
; Compiling   (:INTERNAL (METHOD ACCEPT-INPUT (HIDDEN T)) 0)
; While compiling (:TOP-LEVEL-FORM "html2.lisp" 103):
Error: Can't get template for "INPUT"
  [condition type: PROGRAM-ERROR]
 

How can I fix this problem?(maybe related with accept-input method

(defmethod accept-input ((hidden hidden) query-name &rest args &key
                         (stream *output-stream*) &allow-other-keys)
  (unless (getf args :default)
    (error "No default value provided for a HIDDEN input type."))
  (%issue-command ("INPUT" stream)
    (write-standard-input-type-args 
      (stream query-name hidden args :bind-default t))))

in html2.lisp file.

Thanks

Jong-Won Choi
Follow-Ups: