Turns out that listp doesn't actually ensure something is a list (#25)

exercism · Jan 6, 2021 · bdfc7ea · bdfc7ea
1 parent 77a1d7b
commit bdfc7ea
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/test-runner/astonish.lisp b/src/test-runner/astonish.lisp
@@ -3,7 +3,7 @@
 ;;;; eventually being used to test for implementation in the test-suites
 
 (defpackage astonish
-  (:use :cl)
+  (:use :cl :alexandria)
   (:export :load-forms-from-file :select-conses :macroexpand-select))
 (in-package :astonish)
 
@@ -36,7 +36,7 @@
 
 (defun map-inodes (function form)
   "Maps the given function over all the inner nodes of a tree"
-  (if (listp form)
+  (if (proper-list-p form)
       (funcall function (mapcar (lambda (n) (map-inodes function n)) form))
       form))