diff options
Diffstat (limited to 'lisp/service')
| -rw-r--r-- | lisp/service/resume-service.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/service/resume-service.lisp b/lisp/service/resume-service.lisp index dca609c..14fd97a 100644 --- a/lisp/service/resume-service.lisp +++ b/lisp/service/resume-service.lisp @@ -98,7 +98,7 @@ form fields that get inserted into the add, modify and link forms. If needs to JOIN with other data." (let* ((component (symbol-name component-s)) (component-lcase (string-downcase component)) - (component-s (intern (format nil "~a" component))) + (component-s (intern component))a (table (format nil "resume.~a~a" component-lcase (if view-p "_v" ""))) (arg-names (loop for arg in rest-args collect (car arg))) (link-arg-names (loop for arg in link-rest-args collect (car arg))) |