Custom Query (1030 matches)

(defconstant $1hour 3600) 
(defun foo (i) 
  (loop with start-delay = $1hour 
        with duration = $1hour 
        collect (loop for i from 0 below 5 
                      as departure = (+ 3416133997 start-delay (* i duration)) 
                      collect departure)))

Results in:

 Error: 27329071976 : value doesn't match constraint :S32CONST in template for CCL::ADD-CONSTANT . 

(in both trunk and working-0711)

It is very practical to have small tests in the code to evaluate by hand, but that is ignored by load or "execute all". this is the behavior in mcl.

like:

;(function-call arg)

Slots with overridden allocations (in my case mmap'd) are still (wrongly) assigned a slot location, because they are assumed to be :instance slots.

This is wrong, and here is a fix.

Index: l1-clos.lisp
===================================================================
--- l1-clos.lisp	(revision 12707)
+++ l1-clos.lisp	(working copy)
@@ -43,9 +43,11 @@
   (collect ((instance-slots)
 	    (shared-slots))
     (dolist (s slotds (values (instance-slots) (shared-slots)))
-      (if (eq (%slot-definition-allocation s) :class)
-        (shared-slots s)
-        (instance-slots s)))))
+      (case (%slot-definition-allocation s) 
+	(:class
+	   (shared-slots s))
+	(:instance
+	 (instance-slots s))))))