delve

(ash {value} {int})

delve

(defun keyword {list of keywords} {list})

delve

(car (cdr '{target list}))

delve

(and *file-modified* (ask-user-about-saving) (save-file))

delve

(assoc {key} {assoc-list})
returns: ({key} {value-list})

delve

(defun div2 (n) (/ n 2))
(mapcar #'div2 '(2 4 6))

delve

(defparameter *allowed-commands* '(look walk pickup inventory get))

delve

(complement #'alphanumericp)

delve

(defun make-city-edges ()
  (let* ((nodes (loop for i from 1 to *node-num*
                      collect i))
         (edge-list (connect-all-islands nodes (make-edge-list)))
         (cops (remove-if-not (lambda (x)
                                (declare (ignore x)) ;I added this to get rid of a compile warning ^.^
                                (zerop (random *cop-odds*)))
                              edge-list)))
    (add-cops (edges-to-alist edge-list) cops)))

delve

(defun known-city-nodes ()
  (mapcar (lambda (node)
            (if (member node *visited-nodes*)
              (let ((n (assoc node *congestion-city-nodes*)))
                (if (eql node *player-pos*)
                  (append n '(*))
                  n))
              (list node '?)))
          (remove-duplicates (append *visited-nodes*
                                     (mapcan (lambda (node)