Steel Bank Common Lisp

cannot compile loop statement

Reported by Bob Felts on 2013-05-11
6
This bug affects 1 person
Affects Status Importance Assigned to Milestone
SBCL
High
Unassigned

Bug Description

SBCL 1.1.7, Mac OS X 10.8.4 (12E40) [1]

  (let ((test-data '((0 1 9 2 0 3)
       (4 0 5 0 6 2)
       (0 1 8 0 7 4))))
    (loop
     for counts in test-data
     for pin = (mapcar #'(lambda (count) (min count 1)) counts)
     for pinned-totals = pin then (mapcar #'+ pin pinned-totals)
     finally (return pinned-totals)))

--> attempt to THROW to a tag that does not exist: SB-LOOP::DUPLICATABLE-CODE-P

Under LispWorks Personal :

--> (1 2 3 1 2 3)

which is the correct answer.

----------
[1] uname -a
Darwin Kernel Version 12.4.0: Thu Apr 25 17:37:15 PDT 2013; root:xnu-2050.24.14~2/RELEASE_X86_64 x86_64

Stas Boukarev (stassats) on 2013-05-16
Changed in sbcl:
importance: Undecided → High
assignee: nobody → Stas Boukarev (stassats)
status: New → Triaged
tags: added: loop
Stas Boukarev (stassats) wrote :

In 0a705e49ea94017483b73f9c1e1670b119435bd2

Changed in sbcl:
status: Triaged → Fix Committed
assignee: Stas Boukarev (stassats) → nobody
Changed in sbcl:
status: Fix Committed → Fix Released
To post a comment you must log in.
This report contains Public information  Edit
Everyone can see this information.

Other bug subscribers