Revision: 4411 Author: hans URL: http://bknr.net/trac/changeset/4411

fix incorrect INTERN usage U deployed/bos/projects/bos/web/poi-handlers.lisp

Modified: deployed/bos/projects/bos/web/poi-handlers.lisp =================================================================== --- deployed/bos/projects/bos/web/poi-handlers.lisp 2009-06-03 07:54:58 UTC (rev 4410) +++ deployed/bos/projects/bos/web/poi-handlers.lisp 2009-06-04 09:54:49 UTC (rev 4411) @@ -367,7 +367,7 @@ (setq poi (find-store-object poi :class 'poi)) (let* ((new-medium-type (if medium (type-of medium) - (intern (string-upcase new-medium-type)))) + (find-symbol (string-upcase new-medium-type) :bos.web))) (new-medium (make-new-medium new-medium-type poi))) (when medium (very-shallow-copy-textual-attributes medium new-medium)