Plaster

common-lisp
(defun load-all-texts (rom pointer-table translation-table small-translation-table &optional (ignore nil)) (loop for el in (remove-if (lambda (x) (member (car x) ignore)) pointer-table) for (idx . addr) = el for entry = (restart-case (decode-string translation-table small-translation-table addr rom) (skip-malformed-string () (format t "Malformed string at table idx ~a: ~a~%" idx addr) nil)) when entry collect (cons idx entry)))