LispForum

Code: Select all

(defun update (selector-fn &key title artist rating (ripped nil ripped p))
    (setf *db*
        (mapcar
        #'(lambda (row)
            (when (funcall selector-fn row)
                (if title   (setf (getf row :title)     title))
                (if artist  (setf (getf row :artist)    artist))
                (if rating  (setf (getf row :rating)    rating))
                (if ripped-p(setf (getf row :ripped)    ripped)))
            row) *db*)))

Code: Select all

james@scrapyard:~/Lisp$ clisp -repl cd_db.lsp 

*** - DEFUN: Invalid lambda list element (RIPPED NIL RIPPED P)
The following restarts are available:
SKIP           :R1      skip (DEFUN UPDATE # ...)
STOP           :R2      stop loading file /home/james/Lisp/cd_db.lsp
Break 1 [6]>