From da2db136e1479fa940e7b3c1b196b24b9dde41af Mon Sep 17 00:00:00 2001 From: Maciej Pasternacki Date: Tue, 4 Nov 2008 00:27:43 +0100 Subject: [PATCH] - Change keyword-based URIs to symbol-based, keywords are not a class in SBCL. --- src/common.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/common.lisp b/src/common.lisp index 42857b2..4fa3251 100644 --- a/src/common.lisp +++ b/src/common.lisp @@ -122,7 +122,7 @@ that are to be executed on initialization." (opt "password") (opt "host") :pooled-p t))) - (apply #'postmodern:connect-toplevel (butlast *db* 2)))) + (apply #'postmodern:connect-toplevel (nbutlast *db* 2)))) (defmethod print-object :around ((timestamp simple-date:timestamp) stream) (if *print-escape* @@ -163,7 +163,7 @@ lists of statements." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; URIs -(defmethod uri ((u keyword)) +(defmethod uri ((u symbol)) "URI on keybord -> look up from config." (parse-uri (py-configparser:get-option *config* "uri" (string-downcase (string u))))) -- 2.11.4.GIT