Author: achiumenti Date: Wed Apr 9 09:17:57 2008 New Revision: 32
Modified: trunk/main/claw-core/src/tags.lisp trunk/main/claw-core/tests/test1.lisp Log: updating user manual
Modified: trunk/main/claw-core/src/tags.lisp ============================================================================== --- trunk/main/claw-core/src/tags.lisp (original) +++ trunk/main/claw-core/src/tags.lisp Wed Apr 9 09:17:57 2008 @@ -1014,7 +1014,7 @@ (when (eq k :id) (setf id v)) (when (eq k :static-id) - (setf static-id v)))) + (setf static-id v)))) (when (and (eq id :required) (null static-id)) (error (format nil "Parameter id of class ~a is required"
Modified: trunk/main/claw-core/tests/test1.lisp ============================================================================== --- trunk/main/claw-core/tests/test1.lisp (original) +++ trunk/main/claw-core/tests/test1.lisp Wed Apr 9 09:17:57 2008 @@ -55,12 +55,12 @@ ));:message-dispatcher *lisplet-messages*))
(defvar *test-lisplet2*) -(setf *test-lisplet2* (make-instance 'lisplet :realm "test2" :base-path "/test2" - ));:message-dispatcher *lisplet-messages*)) +(setf *test-lisplet2* (make-instance 'lisplet :realm "test2" + :base-path "/test2"))
;;(defparameter *clawserver* (make-instance 'clawserver :port 4242))
-(defparameter *clawserver* (make-instance 'clawserver :port 4242 :sslport 4445 +(defvar *clawserver* (make-instance 'clawserver :port 4242 :sslport 4445 :mod-lisp-p nil :ssl-certificate-file #P"/home/kiuma/pem/cacert.pem" :ssl-privatekey-file #P"/home/kiuma/pem/privkey.pem")) @@ -205,14 +205,12 @@ (lisplet-register-function-location *test-lisplet* #'(lambda () (let ((path (test-image-file))) - (progn - (setf (content-type) (mime-type path)) - (load-time-value - (with-open-file (in (test-image-file) :element-type 'flex:octet) - (let ((image-data (make-array (file-length in) - :element-type 'flex:octet))) - (read-sequence image-data in) - image-data)))))) + (setf (content-type) (mime-type path)) + (with-open-file (in path :element-type 'flex:octet) + (let ((image-data (make-array (file-length in) + :element-type 'flex:octet))) + (read-sequence image-data in) + image-data)))) "images/matrix2.jpg" ) ;;;--------------------realm test page-------------------------------- (defclass realm-page (page) ())