[Openmcl-devel] Fwd: Error "Fault during read of memory address #x13"

[Gary Byers]

For some reason, this message was sent to a mailing list administration 
address.

-------- Forwarded Message --------
Subject: 	Error "Fault during read of memory address #x13"
Date: 	Tue, 3 Nov 2015 10:20:10 +0100
From: 	Renzo Orsini <orsini at dsi.unive.it>
To: 	openmcl-devel-owner at clozure.com



Given this program:

(defvar *regions* '((SA (WA NT Q NSW V)) (WA (NT SA)) (NT (Q SA WA)) (Q (NSW SA NT)) (NSW (V SA Q)) (V (SA NSW)) (T)))

(defun list-regions (m)
  (mapcar #'car m))

(defun map-coloring-constraint (region-map)
  (let* ((node-list (list-regions region-map))
	 (node-list-length (length node-list))
         (constraints (make-array (list node-list-length node-list-length) :initial-element nil)))
    (loop for (node-a . value) in region-map
       for position-a = (position node-a node-list)	
       do (mapcar (lambda (b)
		    (format t "before setf with ~a ~a ~a ~%" node-a b position-a)
		    (setf (aref constraints
				position-a
				(position b node-list))
			  t))
		  (car value)))
    constraints))

If I do:

(map-coloring-constraint *regions*)

the program produces its result, but if I remove the (format …) that I have inserted for debugging purposes, the following error arises:

Fault during read of memory address #x13
   [Condition of type CCL::INVALID-MEMORY-ACCESS]



-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20151103/1c436d8a/attachment.htm>