[claw-cvs] r32 - in trunk/main/claw-core: src tests

[achiumenti at common-lisp.net]

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) ())