April 2008 - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 19 Apr '08

19 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv10152 Modified Files: more-macros.lisp Log Message: Add a run-time define-compiler-macro placeholder. --- /project/movitz/cvsroot/movitz/losp/muerte/more-macros.lisp 2008/04/17 19:35:05 1.44 +++ /project/movitz/cvsroot/movitz/losp/muerte/more-macros.lisp 2008/04/19 12:44:40 1.45 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Jun 7 15:05:57 2002 ;;;; -;;;; $Id: more-macros.lisp,v 1.44 2008/04/17 19:35:05 ffjeld Exp $ +;;;; $Id: more-macros.lisp,v 1.45 2008/04/19 12:44:40 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -575,3 +575,9 @@ (*read-suppress* nil) #+ignore (*readtable* nil)) ,@body)) + +(defmacro/run-time define-compiler-macro (name &rest ignore) + (declare (ignore ignore)) + 'compiler-macro + name) + \ No newline at end of file

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 19 Apr '08

19 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv10010 Modified Files: lists.lisp Log Message: Add mapl. --- /project/movitz/cvsroot/movitz/losp/muerte/lists.lisp 2008/04/14 21:06:47 1.26 +++ /project/movitz/cvsroot/movitz/losp/muerte/lists.lisp 2008/04/19 12:44:02 1.27 @@ -9,7 +9,7 @@ ;;;; Created at: Tue Dec 5 18:40:11 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: lists.lisp,v 1.26 2008/04/14 21:06:47 ffjeld Exp $ +;;;; $Id: lists.lisp,v 1.27 2008/04/19 12:44:02 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -321,6 +321,7 @@ (map-into more-lists #'cdr more-lists)))))) + (defun mapcan (function first-list &rest more-lists) (numargs-case (2 (function first-list) @@ -427,6 +428,29 @@ (setf first-list (cdr first-list) more-lists (map-into more-lists #'cdr more-lists)))))) +(defun mapl (function first-list &rest more-lists) + (numargs-case + (2 (function first-list) + (do ((p first-list (cdr p))) + ((endp p) + first-list) + (funcall function p))) + (3 (function first-list second-list) + (do ((p1 first-list (cdr p1)) + (p2 second-list (cdr p2))) + ((or (endp p1) (endp p2)) + first-list) + (funcall function p1 p2))) + (t (function first-list &rest more-lists) + (declare (dynamic-extent more-lists)) + (do () + ((or (endp first-list) + (some #'endp more-lists)) + first-list) + (apply function first-list more-lists) + (setf first-list (cdr first-list) + more-lists (map-into more-lists #'cdr more-lists)))))) + (defun nbutlast (list &optional (n 1)) (let ((start-right (nthcdr n list))) (if (endp start-right)

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 19 Apr '08

19 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv9932 Modified Files: defstruct.lisp Log Message: Add a run-time defstruct placeholder. --- /project/movitz/cvsroot/movitz/losp/muerte/defstruct.lisp 2008/04/17 19:33:11 1.19 +++ /project/movitz/cvsroot/movitz/losp/muerte/defstruct.lisp 2008/04/19 12:43:50 1.20 @@ -9,7 +9,7 @@ ;;;; Created at: Mon Jan 22 13:10:59 2001 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: defstruct.lisp,v 1.19 2008/04/17 19:33:11 ffjeld Exp $ +;;;; $Id: defstruct.lisp,v 1.20 2008/04/19 12:43:50 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -334,3 +334,7 @@ (slot-number ,slot-number))) ',struct-name)) )))))) + +(defmacro/run-time defstruct (&rest ignore) + (identity 'structure); just to reference the symbol. + (error "Defstruct not implemented."))

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 19 Apr '08

19 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv9679 Modified Files: basic-functions.lisp Log Message: Remove dead code. --- /project/movitz/cvsroot/movitz/losp/muerte/basic-functions.lisp 2008/04/08 21:40:33 1.25 +++ /project/movitz/cvsroot/movitz/losp/muerte/basic-functions.lisp 2008/04/19 12:42:56 1.26 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 4 18:41:57 2001 ;;;; -;;;; $Id: basic-functions.lisp,v 1.25 2008/04/08 21:40:33 ffjeld Exp $ +;;;; $Id: basic-functions.lisp,v 1.26 2008/04/19 12:42:56 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -466,36 +466,3 @@ (setf (memref object offset :index i :type :character) (char value j)))))))) value) - - - -(define-primitive-function blah () - "foo" - (with-inline-assembly (:returns :multiple-values) - ;; EAX: (presumed) keyword - (:globally (:cmpl :eax (:edi (:edi-offset allow-other-keys-symbol)))) - (:je '(:sub-program (found-allow-other-keys) - ; XXX - (:ret))) - (:leal (:ebx -7) :ecx) - (:testb 7 :cl) - (:jnz '(:sub-program () - (:xorl :ecx :ecx) ; hash of nil is 0 - (:cmpl :edi :ebx) - (:je 'proceed-with-nil-key) - (:movl :ebx :eax) - (:movb 0 :cl) - (:int 72))) - (:xorl :ecx :ecx) - (:movw (:eax (:offset movitz-symbol hash-key)) :cx) - proceed-with-nil-key - ;; We now have symbol's basic sxhash in CX. - (:xorl :edx :edx) - (:leal ((:ecx 4) :edx) :edx) - (:andl (:esi (:offset movitz-funobj constant0)) - :edx) - - (:ret) - - )) -

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 18 Apr '08

18 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv32636 Modified Files: arrays.lisp Log Message: Stupid hack to make ansi-tests load. Will return nil for non-vector arrays. --- /project/movitz/cvsroot/movitz/losp/muerte/arrays.lisp 2008/04/02 20:49:37 1.66 +++ /project/movitz/cvsroot/movitz/losp/muerte/arrays.lisp 2008/04/18 09:55:13 1.67 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sun Feb 11 23:14:04 2001 ;;;; -;;;; $Id: arrays.lisp,v 1.66 2008/04/02 20:49:37 ffjeld Exp $ +;;;; $Id: arrays.lisp,v 1.67 2008/04/18 09:55:13 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1169,8 +1169,8 @@ dimensions) ((and (consp dimensions) (null (cdr dimensions))) (car dimensions)) - (t - (error "Multi-dimensional arrays not supported."))))) + (t (warn "Array of rank ~D not supported." (length dimensions)) + (return-from make-array nil))))) ; XXX (cond (displaced-to (make-indirect-vector displaced-to displaced-index-offset fill-pointer size))

1 0

[movitz-cvs] CVS movitz/losp
by ffjeld 17 Apr '08

17 Apr '08

Update of /project/movitz/cvsroot/movitz/losp In directory clnet:/tmp/cvs-serv15613 Modified Files: los0-gc.lisp Log Message: Break if GC doesn't free anything. It usually means we're dead. --- /project/movitz/cvsroot/movitz/losp/los0-gc.lisp 2007/04/09 17:30:09 1.62 +++ /project/movitz/cvsroot/movitz/losp/los0-gc.lisp 2008/04/17 19:37:01 1.63 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Feb 21 17:48:32 2004 ;;;; -;;;; $Id: los0-gc.lisp,v 1.62 2007/04/09 17:30:09 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.63 2008/04/17 19:37:01 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -429,8 +429,6 @@ new))))) ((not (object-in-space-p oldspace x)) x) - #+ignore ((when (typep x 'run-time-context) - (warn "Scavenging ~S" x))) (t (or (and (eq (object-tag x) (ldb (byte 3 0) (memref (object-location x) 0 :type :unsigned-byte8))) @@ -438,6 +436,8 @@ (and (object-in-space-p newspace forwarded-x) forwarded-x))) (let ((forward-x (shallow-copy x))) + (when (typep x 'run-time-context) + (break "Evac RTC ~Z -> ~Z" x forward-x)) (when (and *gc-consistency-check* (typep x 'muerte::pointer)) (let ((a *x*)) @@ -533,6 +533,8 @@ (unless *gc-quiet* (let ((old-size (truncate (- (space-fresh-pointer oldspace) 2) 2)) (new-size (truncate (- (space-fresh-pointer newspace) 2) 2))) + (when (= old-size new-size) + (break "No memory freed by GC.")) (format t "Old space: ~/muerte:pprint-clumps/, new space: ~ ~/muerte:pprint-clumps/, freed: ~/muerte:pprint-clumps/.~%" old-size new-size (- old-size new-size))))

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 17 Apr '08

17 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv15213 Modified Files: strings.lisp Log Message: Add string< and friends. --- /project/movitz/cvsroot/movitz/losp/muerte/strings.lisp 2005/06/12 20:01:49 1.3 +++ /project/movitz/cvsroot/movitz/losp/muerte/strings.lisp 2008/04/17 19:36:09 1.4 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Oct 19 17:05:25 2001 ;;;; -;;;; $Id: strings.lisp,v 1.3 2005/06/12 20:01:49 ffjeld Exp $ +;;;; $Id: strings.lisp,v 1.4 2008/04/17 19:36:09 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -99,5 +99,97 @@ (t (setf between-words-p (not (char-alpha-p c))) (char-downcase c)))))))) - - +(defun string%<= (string1 string2 result= start1 end1 start2 end2) + (let ((mismatch (mismatch string1 string2 + :start1 start1 + :end1 end1 + :start2 start2 + :end2 end2 + :test #'char=))) + (cond + ((not mismatch) + (when result= + (or end1 (length string1)))) + ((>= mismatch (or end1 (length string1))) + mismatch) + ((>= mismatch (or end2 (length string2))) + nil) + (t (when (char< (char string1 mismatch) + (char string2 mismatch)) + mismatch))))) + +(defun string< (string1 string2 &key (start1 0) end1 (start2 0) end2) + "=> mismatch-index" + (let ((mismatch (mismatch string1 string2 + :start1 start1 + :end1 end1 + :start2 start2 + :end2 end2 + :test #'char=))) + (cond + ((not mismatch) + nil) + ((>= mismatch (or end1 (length string1))) + mismatch) + ((>= mismatch (or end2 (length string2))) + nil) + (t (when (char< (char string1 mismatch) + (char string2 mismatch)) + mismatch))))) + +(defun string<= (string1 string2 &key (start1 0) end1 (start2 0) end2) + "=> mismatch-index" + (let ((mismatch (mismatch string1 string2 + :start1 start1 + :end1 end1 + :start2 start2 + :end2 end2 + :test #'char=))) + (cond + ((not mismatch) + (or end1 (length string1))) + ((>= mismatch (or end1 (length string1))) + mismatch) + ((>= mismatch (or end2 (length string2))) + nil) + (t (when (char<= (char string1 mismatch) + (char string2 mismatch)) + mismatch))))) + +(defun string> (string1 string2 result= start1 end1 start2 end2) + "=> mismatch-index" + (let ((mismatch (mismatch string1 string2 + :start1 start1 + :end1 end1 + :start2 start2 + :end2 end2 + :test #'char=))) + (cond + ((not mismatch) + nil) + ((>= mismatch (or end1 (length string1))) + mismatch) + ((>= mismatch (or end2 (length string2))) + nil) + (t (when (char> (char string1 mismatch) + (char string2 mismatch)) + mismatch))))) + +(defun string>= (string1 string2 result= start1 end1 start2 end2) + "=> mismatch-index" + (let ((mismatch (mismatch string1 string2 + :start1 start1 + :end1 end1 + :start2 start2 + :end2 end2 + :test #'char=))) + (cond + ((not mismatch) + (or end1 (length string1))) + ((>= mismatch (or end1 (length string1))) + mismatch) + ((>= mismatch (or end2 (length string2))) + nil) + (t (when (char>= (char string1 mismatch) + (char string2 mismatch)) + mismatch)))))

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 17 Apr '08

17 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv15052 Modified Files: scavenge.lisp Log Message: Tweak map-header-vals. --- /project/movitz/cvsroot/movitz/losp/muerte/scavenge.lisp 2007/04/07 20:50:38 1.61 +++ /project/movitz/cvsroot/movitz/losp/muerte/scavenge.lisp 2008/04/17 19:35:49 1.62 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Mar 29 14:54:08 2004 ;;;; -;;;; $Id: scavenge.lisp,v 1.61 2007/04/07 20:50:38 ffjeld Exp $ +;;;; $Id: scavenge.lisp,v 1.62 2008/04/17 19:35:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -56,11 +56,17 @@ (byte 8 8) (movitz:tag primary)))) `(= ,code ,x))) - (record-scan (x) + (record-scan (&optional (tag :other)) (declare (ignorable x)) - #+ignore `(setf *scan-last* ,x))) + `(let ((x (%word-offset scan ,(movitz:tag tag)))) + #+ignore (when (and (los0::object-in-space-p (%run-time-context-slot nil 'nursery-space) x) + (not (typep x 'vector)) + (not (typep x 'function))) + (format t "~&Scan: ~S: ~Z ~A~%" scan x (type-of x))) + ;; `(format t "~&Scan: ~S: ~Z" scan x) + (setf *scan-last* x)))) (do ((verbose *map-header-vals-verbose*) - #+ignore (*scan-last* nil) ; Last scanned object, for debugging. + #+ignore (*scan-last* nil) ; Last scanned object, for debugging. (scan start-location (1+ scan))) ((>= scan end-location)) (declare (fixnum scan)) @@ -74,41 +80,53 @@ (= tag #.(movitz:tag :even-fixnum)) (= tag #.(movitz:tag :odd-fixnum)) (scavenge-typep x :character)))) - ((or (and (= 0 x2) (= 2 x)) - (and (= #xffff x2) (= #xfffe x)) - (and (= #x7fff x2) (= #xffff x)))) + ((or (and (= 0 x2) + (= 2 x)) + (and (= #xffff x2) + (= #xfffe x)) + (and (= #x7fff x2) + (= #xffff x)))) ((scavenge-typep x :illegal) (error "Illegal word #x~4,'0X at #x~X." x scan)) ((scavenge-typep x :bignum) (assert (evenp scan) () "Scanned bignum-header #x~4,'0X at odd location #x~X." x scan) ;; Just skip the bigits + (record-scan :other) (let* ((bigits (memref scan 0 :index 1 :type :unsigned-byte14)) (delta (logior bigits 1))) - (record-scan (%word-offset scan #.(movitz:tag :other))) (incf scan delta))) ((scavenge-typep x :defstruct) (assert (evenp scan) () "Scanned struct-header #x~4,'0X at odd location #x~X." x scan) - (record-scan (%word-offset scan #.(movitz:tag :other)))) + (record-scan :other)) ((scavenge-typep x :run-time-context) (assert (evenp scan) () "Scanned run-time-context-header #x~4,'0X at odd location #x~X." (memref scan 0 :type :unsigned-byte32) scan) - (incf scan) - (let ((non-lispvals #.(cl:truncate (cl:+ -4 (bt:slot-offset 'movitz::movitz-run-time-context - 'movitz::pointer-start) - (movitz::image-nil-word movitz:*image*)) - 4)) - (end (+ scan #.(movitz::movitz-type-word-size 'movitz::movitz-run-time-context)))) - (incf scan non-lispvals) - (map-lisp-vals function scan (1+ end)) - (setf scan end))) + (record-scan :other) + (let ((rtc (%word-offset scan #.(movitz:tag :other)))) + (incf scan) + (let ((non-lispvals #.(cl:truncate (cl:+ -4 (bt:slot-offset 'movitz::movitz-run-time-context + 'movitz::pointer-start) + (movitz::image-nil-word movitz:*image*)) + 4)) + (end (+ scan #.(movitz::movitz-type-word-size 'movitz::movitz-run-time-context)))) + (incf scan non-lispvals) + (check-type rtc run-time-context) + (let ((old-stack (%run-time-context-slot rtc 'stack-vector))) + ;; (warn "old-stack: ~Z" old-stack) + (map-lisp-vals function scan (1+ end)) + (let ((new-stack (%run-time-context-slot rtc 'stack-vector))) + ;; (warn "new-stack: ~Z" new-stack) + (when (not (eq old-stack new-stack)) + (error "Stack-vector for ~S moved from ~Z to ~Z." rtc old-stack new-stack)))) + (setf scan end)))) ((scavenge-typep x :funobj) (assert (evenp scan) () "Scanned funobj-header #x~4,'0X at odd location #x~X." (memref scan 0 :type :unsigned-byte32) scan) - (record-scan (%word-offset scan #.(movitz:tag :other))) + (record-scan :other) ;; Process code-vector pointers specially.. (let* ((old-code-vector (memref (incf scan) 0 :type :code-vector)) (new-code-vector (if (eq 0 old-code-vector) @@ -170,34 +188,37 @@ (scavenge-wide-typep x :basic-vector #.(bt:enum-value 'movitz:movitz-vector-element-type :code))) (let ((len (memref scan 4))) - (record-scan (%word-offset scan #.(movitz:tag :other))) + (record-scan :other) (incf scan (1+ (* 2 (truncate (+ 7 len) 8)))))) ((scavenge-wide-typep x :basic-vector #.(bt:enum-value 'movitz:movitz-vector-element-type :u16)) (let ((len (memref scan 0 :index 1))) - (record-scan (%word-offset scan #.(movitz:tag :other))) + (record-scan :other) (incf scan (1+ (* 2 (truncate (+ 3 len) 4)))))) - ((scavenge-wide-typep x :basic-vector #.(bt:enum-value 'movitz:movitz-vector-element-type :u32)) + ((or (scavenge-wide-typep x :basic-vector + #.(bt:enum-value 'movitz:movitz-vector-element-type :u32)) + (scavenge-wide-typep x :basic-vector + #.(bt:enum-value 'movitz:movitz-vector-element-type :stack))) (let ((len (memref scan 4))) - (record-scan (%word-offset scan #.(movitz:tag :other))) + (record-scan :other) (incf scan (1+ (logand (1+ len) -2))))) ((scavenge-wide-typep x :basic-vector #.(bt:enum-value 'movitz:movitz-vector-element-type :bit)) (let ((len (memref scan 4))) - (record-scan (%word-offset scan #.(movitz:tag :other))) + (record-scan :other) (incf scan (1+ (* 2 (truncate (+ 63 len) 64)))))) ((or (scavenge-wide-typep x :basic-vector #.(bt:enum-value 'movitz:movitz-vector-element-type - :any-t)) + :any-t)) (scavenge-wide-typep x :basic-vector #.(bt:enum-value 'movitz:movitz-vector-element-type - :indirects))) - (record-scan (%word-offset scan #.(movitz:tag :other)))) + :indirects))) + (record-scan :other)) (t (error "Scanned unknown basic-vector-header #x~4,'0X at location #x~X." x scan)))) ((and (eq x 3) (eq x2 0)) - (record-scan scan) + ;; (record-scan scan) (incf scan) (let ((delta (memref scan 0))) (check-type delta positive-fixnum) - ;; (warn "at ~S skipping ~S to ~S." scan delta (+ scan delta)) + (format t "at ~S skipping ~S to ~S." scan delta (+ scan delta)) (incf scan delta))) (t ;; (typep x 'pointer) (let* ((old (memref scan 0)) @@ -439,5 +460,3 @@ (* location-offset 4) lowbits)))) new-code-vector))) - -

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 17 Apr '08

17 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv14977 Modified Files: ratios.lisp Log Message: More float "emulation". --- /project/movitz/cvsroot/movitz/losp/muerte/ratios.lisp 2007/04/08 13:44:44 1.10 +++ /project/movitz/cvsroot/movitz/losp/muerte/ratios.lisp 2008/04/17 19:35:20 1.11 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Jul 20 00:39:59 2004 ;;;; -;;;; $Id: ratios.lisp,v 1.10 2007/04/08 13:44:44 ffjeld Exp $ +;;;; $Id: ratios.lisp,v 1.11 2008/04/17 19:35:20 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -76,10 +76,17 @@ (integer 1) (ratio (%ratio-denominator x)))) -(defconstant least-positive-short-float 1/1000) -(defconstant least-positive-single-float 1/1000) -(defconstant least-positive-double-float 1/1000) -(defconstant least-positive-long-float 1/1000) +;;; "Floats" + +(defconstant most-negative-short-float most-negative-fixnum) +(defconstant most-negative-single-float most-negative-fixnum) +(defconstant most-negative-long-float most-negative-fixnum) +(defconstant most-negative-double-float most-negative-fixnum) + +(defconstant least-positive-short-float 1/100000) +(defconstant least-positive-single-float 1/100000) +(defconstant least-positive-double-float 1/100000) +(defconstant least-positive-long-float 1/100000) ;;; @@ -87,6 +94,40 @@ (defvar long-float-epsilon 1/10000) +(defun float (x &optional proto) + (declare (ignore proto)) + (check-type x float) + x) + +(defun float-radix (x) + (if (integerp x) + 2 + (denominator x))) + +(defun integer-decode-float (x) + (if (integerp x) + (if (minusp x) + (values x 0 -1) + (values x 0 1)) + (let ((n (numerator x))) + (if (minusp x) + (values n -1 -1) + (values n -1 1))))) + +(defun decode-float (x) + (multiple-value-bind (n sign) + (let ((n (numerator x))) + (if (minusp n) + (values (- n) -1) + (values n 1))) + (let* ((r (float-radix x)) + (d (denominator x)) + (e (if (= 1 d) 0 -1))) + (do () ((< n 1) + (values n e sign)) + (setf n (/ n r)) + (incf e))))) + (defun cos (x) "http://mathworld.wolfram.com/Cosine.html" (do* ((rad (mod x 44/7))

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 17 Apr '08

17 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv14911 Modified Files: more-macros.lisp Log Message: Remove bogous loop macro placeholder. --- /project/movitz/cvsroot/movitz/losp/muerte/more-macros.lisp 2008/04/15 23:06:47 1.43 +++ /project/movitz/cvsroot/movitz/losp/muerte/more-macros.lisp 2008/04/17 19:35:05 1.44 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Jun 7 15:05:57 2002 ;;;; -;;;; $Id: more-macros.lisp,v 1.43 2008/04/15 23:06:47 ffjeld Exp $ +;;;; $Id: more-macros.lisp,v 1.44 2008/04/17 19:35:05 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -575,6 +575,3 @@ (*read-suppress* nil) #+ignore (*readtable* nil)) ,@body)) - -(defmacro/run-time loop (&rest clauses) - (error "Loop not implemented."))

1 0