Commit 98e0f8dc authored by Dave Cooper's avatar Dave Cooper
Browse files

fixed package on read-from-string of base-html-graphics-sheet in answer.lisp

parent b7bb9a94
......@@ -577,7 +577,12 @@ please find implementation for the currently running lisp.~%")
(defmacro without-redefinition-warnings (&rest body)
#+allegro
`(excl:without-redefinition-warnings ,@body)
#-allegro
#+sbcl
`(locally
(declare (sb-ext:muffle-conditions sb-kernel:redefinition-warning))
(handler-bind
((sb-kernel:redefinition-warning #'muffle-warning)) ,@body))
#-(or allegro sbcl)
(progn
(warn "Need an implementation for without-redefinition-warnings for ~a~%." (lisp-implementation-type))
`(progn ,@body)))
......@@ -201,7 +201,7 @@ instance at what time should the recovery instance expire?"
(when
(and (fboundp 'process-graphics-fields)
(typep (the-object requestor) (read-from-string "base-html-graphics-sheet"))
(typep (the-object requestor) (read-from-string "gwl:base-html-graphics-sheet"))
(the-object requestor (evaluate :view-object)))
(setq query-plist (funcall (read-from-string "gwl::process-graphics-fields")
query query-plist root-object requestor)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment