[Bese-devel] Re: Patches for Allegro

[Luís Oliveira]

"Earl J. Wagner" <earljwagner at alum.mit.edu> writes:
> --- 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))

This would break other lisps. Probably better:

  (cl:find-package '#:net.uri)

>   (defmethod query-path ((request aserve-request))
>     (net.uri:uri-path (net.aserve:request-uri (request request))))

-- 
Luís Oliveira
luismbo (@) gmail (.) com
Equipa Portuguesa do Translation Project
http://www.iro.umontreal.ca/translation/registry.cgi?team=pt