[Bese-devel] Patches for Allegro

[Earl J. Wagner]

Hi all,

I've just been getting into UCW and it looks great!

I'm running Allegro (8.0, modern mode). Besides the calls finalize- 
inheritance mentioned in previous list messages, I ran into a few  
small problems with case-sensitivity. Also, It appears that the  
original defvar for +string-index-cache+ in form.lisp used  
implementation-specific behavior for map-into; Allegro would just set  
it to nil. The patches follow.

Thanks!
-Earl

diff -rN -u old-ucw_dev/src/admin/admin.lisp new-ucw_dev/src/admin/ 
admin.lisp
--- old-ucw_dev/src/admin/admin.lisp    2006-03-23 18:43:16.953043938  
-0600
+++ new-ucw_dev/src/admin/admin.lisp    2006-03-23 18:43:16.991037703  
-0600
@@ -23,7 +23,7 @@
    (<:hr)
    (render (admin-app.body app))
    (<:hr)
-  (<:A :href "index.ucw" "Back to admin entry."))
+  (<:a :href "index.ucw" "Back to admin entry."))

  (defclass admin-login (login)
    ()
diff -rN -u old-ucw_dev/src/backend/aserve.lisp new-ucw_dev/src/ 
backend/aserve.lisp
--- old-ucw_dev/src/backend/aserve.lisp 2006-03-23 18:43:16.954043774  
-0600
+++ new-ucw_dev/src/backend/aserve.lisp 2006-03-23 18:43:16.992037539  
-0600
@@ -95,7 +95,7 @@
  (defmethod query-path ((request aserve-request))
    (puri:uri-path (net.aserve:request-uri (request request))))

-#+#.(cl:if (cl:find-package "NET.URI") `(and) `(or))
+#+#.(cl:if (cl:find-package "net.uri") `(and) `(or))
  (defmethod query-path ((request aserve-request))
    (net.uri:uri-path (net.aserve:request-uri (request request))))

diff -rN -u old-ucw_dev/src/components/form.lisp new-ucw_dev/src/ 
components/form.lisp
--- old-ucw_dev/src/components/form.lisp        2006-03-23  
18:43:16.957043281 -0600
+++ new-ucw_dev/src/components/form.lisp        2006-03-23  
18:43:16.995037047 -0600
@@ -280,12 +280,12 @@
  ;;;; prevent generating large amounts of throw away strings.

  (defvar +string-index-cache+
-  (map-into (make-array 50
-                        :element-type 'string
-                        :adjustable t)
-            (let ((i -1))
-              (lambda ()
-                (princ-to-string (incf i))))))
+  (let ((initial-size 50))
+       (make-array initial-size :initial-contents
+                               (loop for i upto (1- initial-size)
+                                         collect (princ-to-string i))
+                               :element-type 'string
+                               :adjustable t)))

  (defun integer-to-string (i)
    (cond