From 1f0dddb625af2adbb537c64002f07c84397d41cb Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Thu, 27 Aug 2026 21:55:50 -0600 Subject: stuff --- lisp/service/resume-service.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- cgit v1.3