Changeset 3370

Show
Ignore:
Timestamp:
06/27/08 13:43:17 (7 months ago)
Author:
hans
Message:

Actually commit the latest bug fix.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/lisp-ecoop/src/handlers.lisp

    r3369 r3370  
    5050(defmethod handle ((handler make-submission-handler)) 
    5151  (with-query-params (type title abstract) 
    52     (let ((submission (make-object (find-symbol (string-upcase type)) 
     52    (format t "type: ~A symbol: ~A~%" type (find-symbol (string-upcase type) :lisp-ecoop)) 
     53    (let ((submission (make-object (find-symbol (string-upcase type) :lisp-ecoop) 
    5354                                   :title title 
    5455                                   :abstract abstract))) 

  • trunk/projects/lisp-ecoop/src/tags.lisp

    r3369 r3370  
    6161            (with-open-file (pdf file-name) 
    6262              (if (cl-ppcre:scan "^%PDF-" (read-line pdf)) 
    63                   (let* ((submission (make-object (find-symbol (string-upcase type)) 
     63                  (let* ((submission (make-object (find-symbol (string-upcase type)  :lisp-ecoop) 
    6464                                                  :submitters (list participant) :title title :abstract abstract)) 
    6565                         (document (make-object 'document :info info :submission submission)))