From: Christophe Rhodes Date: Wed, 4 May 2005 10:35:49 +0000 (+0000) Subject: 0.9.0.18: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6365d636fa30ff3e2c2ebc9668f978fa0ebc7a0e;p=sbcl.git 0.9.0.18: Basically s/assert/aver/ (Thiemo Seufer) --- diff --git a/src/assembly/ppc/arith.lisp b/src/assembly/ppc/arith.lisp index ce82af9..c19a901 100644 --- a/src/assembly/ppc/arith.lisp +++ b/src/assembly/ppc/arith.lisp @@ -219,7 +219,7 @@ (:res quo any-reg nl2-offset) (:res rem any-reg nl0-offset)) - (assert (location= rem dividend)) + (aver (location= rem dividend)) (let ((error (generate-error-code nil division-by-zero-error dividend divisor))) (inst cmpwi divisor 0) @@ -244,7 +244,7 @@ (:res quo any-reg nl2-offset) (:res rem any-reg nl0-offset)) - (assert (location= rem dividend)) + (aver (location= rem dividend)) (let ((error (generate-error-code nil division-by-zero-error dividend divisor))) (inst cmpwi divisor 0) diff --git a/src/code/alpha-vm.lisp b/src/code/alpha-vm.lisp index 3b421b8..b1f55cf 100644 --- a/src/code/alpha-vm.lisp +++ b/src/code/alpha-vm.lisp @@ -32,7 +32,7 @@ (%primitive code-instructions code)))) (ecase kind (:jmp-hint - (assert (zerop (ldb (byte 2 0) value))) + (aver (zerop (ldb (byte 2 0) value))) #+nil (setf (sap-ref-16 sap offset) (logior (sap-ref-16 sap offset) diff --git a/src/code/hppa-vm.lisp b/src/code/hppa-vm.lisp index 62a2b5c..9f30c9a 100644 --- a/src/code/hppa-vm.lisp +++ b/src/code/hppa-vm.lisp @@ -28,7 +28,7 @@ (logand inst #xffffc000))) (:load-short (let ((low-bits (ldb (byte 11 0) value))) - (assert (<= 0 low-bits (1- (ash 1 4)))) + (aver (<= 0 low-bits (1- (ash 1 4)))) (logior (ash low-bits 17) (logand inst #xffe0ffff)))) (:hi @@ -40,7 +40,7 @@ (logand inst #xffe00000))) (:branch (let ((bits (ldb (byte 9 2) value))) - (assert (zerop (ldb (byte 2 0) value))) + (aver (zerop (ldb (byte 2 0) value))) (logior (ash bits 3) (logand inst #xffe0e002))))))))) diff --git a/src/code/mips-vm.lisp b/src/code/mips-vm.lisp index d9f94e3..541bb35 100644 --- a/src/code/mips-vm.lisp +++ b/src/code/mips-vm.lisp @@ -23,7 +23,7 @@ (%primitive sb!c::code-instructions code)))) (ecase kind (:jump - (assert (zerop (ash value -28))) + (aver (zerop (ash value -28))) (setf (ldb (byte 26 0) (sap-ref-32 sap offset)) (ash value -2))) (:lui diff --git a/src/compiler/alpha/alloc.lisp b/src/compiler/alpha/alloc.lisp index 285910c..fd3822b 100644 --- a/src/compiler/alpha/alloc.lisp +++ b/src/compiler/alpha/alloc.lisp @@ -59,7 +59,7 @@ (t (storew null-tn ptr cons-cdr-slot list-pointer-lowtag))) - (assert (null (tn-ref-across things))) + (aver (null (tn-ref-across things))) (move res result)))))))) (define-vop (list list-or-list*) diff --git a/src/compiler/alpha/call.lisp b/src/compiler/alpha/call.lisp index 63e2de3..5b37fad 100644 --- a/src/compiler/alpha/call.lisp +++ b/src/compiler/alpha/call.lisp @@ -315,7 +315,7 @@ default-value-8 (move ocfp-tn csp-tn) (let ((defaults (defaults))) - (assert defaults) + (aver defaults) (assemble (*elsewhere*) (emit-label default-stack-vals) (do ((remaining defaults (cdr remaining))) @@ -594,7 +594,7 @@ default-value-8 ;;; passed as a more arg, but there is no new-FP, since the arguments ;;; have been set up in the current frame. (defmacro define-full-call (name named return variable) - (assert (not (and variable (eq return :tail)))) + (aver (not (and variable (eq return :tail)))) `(define-vop (,name ,@(when (eq return :unknown) '(unknown-values-receiver))) diff --git a/src/compiler/alpha/insts.lisp b/src/compiler/alpha/insts.lisp index bc91214..a06ca47 100644 --- a/src/compiler/alpha/insts.lisp +++ b/src/compiler/alpha/insts.lisp @@ -27,7 +27,7 @@ (zero zero-offset) (null null-offset) (t - (assert (eq (sb-name (sc-sb (tn-sc tn))) 'registers)) + (aver (eq (sb-name (sc-sb (tn-sc tn))) 'registers)) (tn-offset tn)))) (defun fp-reg-tn-encoding (tn) diff --git a/src/compiler/alpha/static-fn.lisp b/src/compiler/alpha/static-fn.lisp index bffe879..faf2758 100644 --- a/src/compiler/alpha/static-fn.lisp +++ b/src/compiler/alpha/static-fn.lisp @@ -39,11 +39,10 @@ (moves))) (defun static-fun-template-vop (num-args num-results) - (assert (and (<= num-args register-arg-count) + (unless (and (<= num-args register-arg-count) (<= num-results register-arg-count)) - (num-args num-results) - "Either too many args (~W) or too many results (~W). Max = ~W" - num-args num-results register-arg-count) + (error "either too many args (~W) or too many results (~W); max = ~W" + num-args num-results register-arg-count)) (let ((num-temps (max num-args num-results))) (collect ((temp-names) (temps) (arg-names) (args) (result-names) (results)) (dotimes (i num-results) diff --git a/src/compiler/hppa/c-call.lisp b/src/compiler/hppa/c-call.lisp index 0d83e19..9f3cb93 100644 --- a/src/compiler/hppa/c-call.lisp +++ b/src/compiler/hppa/c-call.lisp @@ -71,7 +71,7 @@ (define-alien-type-method (values :result-tn) (type) (let ((values (alien-values-type-values type))) (when values - (assert (null (cdr values))) + (aver (null (cdr values))) (invoke-alien-type-method :result-tn (car values))))) (defun make-arg-tns (type) diff --git a/src/compiler/hppa/call.lisp b/src/compiler/hppa/call.lisp index 3b4b304..594ae1e 100644 --- a/src/compiler/hppa/call.lisp +++ b/src/compiler/hppa/call.lisp @@ -319,7 +319,7 @@ default-value-8 (inst compute-code-from-lra code-tn lra-label temp code-tn) (let ((defaults (defaults))) - (assert defaults) + (aver defaults) (assemble (*elsewhere*) (trace-table-entry trace-table-call-site) DEFAULT-STACK-VALS @@ -604,7 +604,7 @@ default-value-8 ;;; the current frame. ;;; (macrolet ((define-full-call (name named return variable) - (assert (not (and variable (eq return :tail)))) + (aver (not (and variable (eq return :tail)))) `(define-vop (,name ,@(when (eq return :unknown) '(unknown-values-receiver))) diff --git a/src/compiler/hppa/insts.lisp b/src/compiler/hppa/insts.lisp index 5cf0d93..d04c641 100644 --- a/src/compiler/hppa/insts.lisp +++ b/src/compiler/hppa/insts.lisp @@ -22,7 +22,7 @@ (null null-offset) (zero zero-offset) (t - (assert (eq (sb-name (sc-sb (tn-sc tn))) 'registers)) + (aver (eq (sb-name (sc-sb (tn-sc tn))) 'registers)) (tn-offset tn)))) (defun fp-reg-tn-encoding (tn) @@ -501,7 +501,7 @@ (declare (type (or fixup (signed-byte 14)))) (cond ((fixup-p disp) (note-fixup segment :load disp) - (assert (or (null (fixup-offset disp)) (zerop (fixup-offset disp)))) + (aver (or (null (fixup-offset disp)) (zerop (fixup-offset disp)))) 0) (t (dpb (ldb (byte 13 0) disp) @@ -565,7 +565,7 @@ (declare (type (or fixup (signed-byte 5)) disp)) (cond ((fixup-p disp) (note-fixup segment :load-short disp) - (assert (or (null (fixup-offset disp)) (zerop (fixup-offset disp)))) + (aver (or (null (fixup-offset disp)) (zerop (fixup-offset disp)))) 0) (t (dpb (ldb (byte 4 0) disp) @@ -647,7 +647,7 @@ (declare (type (or fixup (signed-byte 21) (unsigned-byte 21)) value)) (cond ((fixup-p value) (note-fixup segment :hi value) - (assert (or (null (fixup-offset value)) (zerop (fixup-offset value)))) + (aver (or (null (fixup-offset value)) (zerop (fixup-offset value)))) 0) (t (logior (ash (ldb (byte 5 2) value) 16) @@ -690,7 +690,7 @@ (declare (type (or fixup (signed-byte 17)) disp)) (cond ((fixup-p disp) (note-fixup segment :branch disp) - (assert (or (null (fixup-offset disp)) (zerop (fixup-offset disp)))) + (aver (or (null (fixup-offset disp)) (zerop (fixup-offset disp)))) (values 0 0 0)) (t (values (ldb (byte 5 11) disp) @@ -708,7 +708,7 @@ (emit-back-patch segment 4 #'(lambda (segment posn) (let ((disp (label-relative-displacement target posn))) - (assert (<= (- (ash 1 16)) disp (1- (ash 1 16)))) + (aver (<= (- (ash 1 16)) disp (1- (ash 1 16)))) (multiple-value-bind (w1 w2 w) (decompose-branch-disp segment disp) @@ -776,7 +776,7 @@ (emit-back-patch segment 4 #'(lambda (segment posn) (let ((disp (label-relative-displacement target posn))) - (assert (<= (- (ash 1 11)) disp (1- (ash 1 11)))) + (aver (<= (- (ash 1 11)) disp (1- (ash 1 11)))) (let ((w1 (logior (ash (ldb (byte 10 0) disp) 1) (ldb (byte 1 10) disp))) (w (ldb (byte 1 11) disp))) @@ -1123,7 +1123,7 @@ (result-encoding double-p) (fp-reg-tn-encoding result) (when side - (assert double-p) + (aver double-p) (setf double-p nil)) (emit-fp-load/store segment (if double-p #x0B #x09) (reg-tn-encoding base) (reg-tn-encoding index) 0 (if scale 1 0) 0 0 0 @@ -1142,7 +1142,7 @@ (value-encoding double-p) (fp-reg-tn-encoding value) (when side - (assert double-p) + (aver double-p) (setf double-p nil)) (emit-fp-load/store segment (if double-p #x0B #x09) (reg-tn-encoding base) (reg-tn-encoding index) 0 (if scale 1 0) 0 0 1 @@ -1162,7 +1162,7 @@ (result-encoding double-p) (fp-reg-tn-encoding result) (when side - (assert double-p) + (aver double-p) (setf double-p nil)) (emit-fp-load/store segment (if double-p #x0B #x09) (reg-tn-encoding base) (short-disp-encoding segment disp) 0 @@ -1183,7 +1183,7 @@ (value-encoding double-p) (fp-reg-tn-encoding value) (when side - (assert double-p) + (aver double-p) (setf double-p nil)) (emit-fp-load/store segment (if double-p #x0B #x09) (reg-tn-encoding base) (short-disp-encoding segment disp) 0 @@ -1226,7 +1226,7 @@ (multiple-value-bind (to-encoding to-double-p) (fp-reg-tn-encoding to) - (assert (eq from-double-p to-double-p)) + (aver (eq from-double-p to-double-p)) (emit-fp-class-0-inst segment #x0C from-encoding 0 (+ 2 (or (position op funops) (error "Bogus FUNOP: ~S" op))) @@ -1265,7 +1265,7 @@ (multiple-value-bind (r2-encoding r2-double-p) (fp-reg-tn-encoding r2) - (assert (eq r1-double-p r2-double-p)) + (aver (eq r1-double-p r2-double-p)) (emit-fp-class-0-inst segment #x0C r1-encoding r2-encoding 0 (if r1-double-p 1 0) 2 0 0 cond))))) @@ -1298,11 +1298,11 @@ (multiple-value-bind (r2-encoding r2-double-p) (fp-reg-tn-encoding r2) - (assert (eq r1-double-p r2-double-p)) + (aver (eq r1-double-p r2-double-p)) (multiple-value-bind (result-encoding result-double-p) (fp-reg-tn-encoding result) - (assert (eq r1-double-p result-double-p)) + (aver (eq r1-double-p result-double-p)) (emit-fp-class-0-inst segment #x0C r1-encoding r2-encoding (or (position op fbinops) (error "Bogus FBINOP: ~S" op)) diff --git a/src/compiler/hppa/static-fn.lisp b/src/compiler/hppa/static-fn.lisp index c6d9e7f..9b4acef 100644 --- a/src/compiler/hppa/static-fn.lisp +++ b/src/compiler/hppa/static-fn.lisp @@ -31,11 +31,10 @@ (moves))) (defun static-fun-template-vop (num-args num-results) - (assert (and (<= num-args register-arg-count) + (unless (and (<= num-args register-arg-count) (<= num-results register-arg-count)) - (num-args num-results) - "Either too many args (~D) or too many results (~D). Max = ~D" - num-args num-results register-arg-count) + (error "either too many args (~W) or too many results (~W); max = ~W" + num-args num-results register-arg-count)) (let ((num-temps (max num-args num-results))) (collect ((temp-names) (temps) (arg-names) (args) (result-names) (results)) (dotimes (i num-results) diff --git a/src/compiler/mips/alloc.lisp b/src/compiler/mips/alloc.lisp index be64f8d..784a469 100644 --- a/src/compiler/mips/alloc.lisp +++ b/src/compiler/mips/alloc.lisp @@ -51,7 +51,7 @@ (t (storew null-tn ptr cons-cdr-slot list-pointer-lowtag))) - (assert (null (tn-ref-across things))) + (aver (null (tn-ref-across things))) (move result res)))))))) (define-vop (list list-or-list*) diff --git a/src/compiler/mips/call.lisp b/src/compiler/mips/call.lisp index 8e21f1e..a33e696 100644 --- a/src/compiler/mips/call.lisp +++ b/src/compiler/mips/call.lisp @@ -319,7 +319,7 @@ default-value-8 (move csp-tn ocfp-tn) (let ((defaults (defaults))) - (assert defaults) + (aver defaults) (assemble (*elsewhere*) (emit-label default-stack-vals) (do ((remaining defaults (cdr remaining))) @@ -618,7 +618,7 @@ default-value-8 ;;; the current frame. ;;; (defmacro define-full-call (name named return variable) - (assert (not (and variable (eq return :tail)))) + (aver (not (and variable (eq return :tail)))) `(define-vop (,name ,@(when (eq return :unknown) '(unknown-values-receiver))) diff --git a/src/compiler/mips/macros.lisp b/src/compiler/mips/macros.lisp index 943df63..04d697f 100644 --- a/src/compiler/mips/macros.lisp +++ b/src/compiler/mips/macros.lisp @@ -139,7 +139,7 @@ &body body) "Do stuff to allocate an other-pointer object of fixed Size with a single word header having the specified Type-Code. The result is placed in - Result-TN, Flag-Tn must be wired to NL3-OFFSET, and Temp-TN is a non- + Result-TN, Flag-Tn must be wired to NL4-OFFSET, and Temp-TN is a non- descriptor temp (which may be randomly used by the body.) The body is placed inside the PSEUDO-ATOMIC, and presumably initializes the object." `(pseudo-atomic (,flag-tn :extra (pad-data-block ,size)) diff --git a/src/compiler/mips/static-fn.lisp b/src/compiler/mips/static-fn.lisp index f53f230..d5e99a9 100644 --- a/src/compiler/mips/static-fn.lisp +++ b/src/compiler/mips/static-fn.lisp @@ -31,11 +31,10 @@ (moves))) (defun static-fun-template-vop (num-args num-results) - (assert (and (<= num-args register-arg-count) + (unless (and (<= num-args register-arg-count) (<= num-results register-arg-count)) - (num-args num-results) - "Either too many args (~D) or too many results (~D). Max = ~D" - num-args num-results register-arg-count) + (error "either too many args (~W) or too many results (~W); max = ~W" + num-args num-results register-arg-count)) (let ((num-temps (max num-args num-results))) (collect ((temp-names) (temps) (arg-names) (args) (result-names) (results)) (dotimes (i num-results) diff --git a/src/compiler/ppc/c-call.lisp b/src/compiler/ppc/c-call.lisp index 07f6b02..3543dc4 100644 --- a/src/compiler/ppc/c-call.lisp +++ b/src/compiler/ppc/c-call.lisp @@ -240,11 +240,11 @@ #!+darwin (deftransform %alien-funcall ((function type &rest args)) - (assert (sb!c::constant-lvar-p type)) + (aver (sb!c::constant-lvar-p type)) (let* ((type (sb!c::lvar-value type)) (arg-types (alien-fun-type-arg-types type)) (result-type (alien-fun-type-result-type type))) - (assert (= (length arg-types) (length args))) + (aver (= (length arg-types) (length args))) ;; We need to do something special for 64-bit integer arguments ;; and results. (if (or (some #'(lambda (type) diff --git a/src/compiler/ppc/call.lisp b/src/compiler/ppc/call.lisp index 99a9a4b..a670118 100644 --- a/src/compiler/ppc/call.lisp +++ b/src/compiler/ppc/call.lisp @@ -592,7 +592,7 @@ default-value-8 ;;; more arg, but there is no new-FP, since the arguments have been set up in ;;; the current frame. (defmacro define-full-call (name named return variable) - (assert (not (and variable (eq return :tail)))) + (aver (not (and variable (eq return :tail)))) `(define-vop (,name ,@(when (eq return :unknown) '(unknown-values-receiver))) diff --git a/src/compiler/ppc/static-fn.lisp b/src/compiler/ppc/static-fn.lisp index c5adcdf..d0479a2 100644 --- a/src/compiler/ppc/static-fn.lisp +++ b/src/compiler/ppc/static-fn.lisp @@ -42,11 +42,10 @@ (moves))) (defun static-fun-template-vop (num-args num-results) - (assert (and (<= num-args register-arg-count) + (unless (and (<= num-args register-arg-count) (<= num-results register-arg-count)) - (num-args num-results) - "Either too many args (~W) or too many results (~W). Max = ~W" - num-args num-results register-arg-count) + (error "either too many args (~W) or too many results (~W); max = ~W" + num-args num-results register-arg-count)) (let ((num-temps (max num-args num-results))) (collect ((temp-names) (temps) (arg-names) (args) (result-names) (results)) (dotimes (i num-results) diff --git a/src/compiler/ppc/system.lisp b/src/compiler/ppc/system.lisp index 15c686b..d03f15d 100644 --- a/src/compiler/ppc/system.lisp +++ b/src/compiler/ppc/system.lisp @@ -230,7 +230,7 @@ (:generator 1 (let ((offset (- (* (+ index vector-data-offset) n-word-bytes) other-pointer-lowtag))) - (assert (typep offset '(signed-byte 16))) + (aver (typep offset '(signed-byte 16))) (inst lwz count count-vector offset) (inst addi count count 1) (inst stw count count-vector offset)))) diff --git a/src/compiler/sparc/c-call.lisp b/src/compiler/sparc/c-call.lisp index 83b5e8c..5932c66 100644 --- a/src/compiler/sparc/c-call.lisp +++ b/src/compiler/sparc/c-call.lisp @@ -102,11 +102,11 @@ (make-result-state)))))) (deftransform %alien-funcall ((function type &rest args)) - (assert (sb!c::constant-lvar-p type)) + (aver (sb!c::constant-lvar-p type)) (let* ((type (sb!c::lvar-value type)) (arg-types (alien-fun-type-arg-types type)) (result-type (alien-fun-type-result-type type))) - (assert (= (length arg-types) (length args))) + (aver (= (length arg-types) (length args))) ;; We need to do something special for the following argument ;; types: single-float, double-float, and 64-bit integers. For ;; results, we need something special for 64-bit integer results. diff --git a/src/compiler/sparc/call.lisp b/src/compiler/sparc/call.lisp index 6a0b2a3..cc5b23f 100644 --- a/src/compiler/sparc/call.lisp +++ b/src/compiler/sparc/call.lisp @@ -590,7 +590,7 @@ default-value-8 ;;; more arg, but there is no new-FP, since the arguments have been set up in ;;; the current frame. (defmacro define-full-call (name named return variable) - (assert (not (and variable (eq return :tail)))) + (aver (not (and variable (eq return :tail)))) `(define-vop (,name ,@(when (eq return :unknown) '(unknown-values-receiver))) diff --git a/src/compiler/sparc/insts.lisp b/src/compiler/sparc/insts.lisp index d0fedf8..2d50851 100644 --- a/src/compiler/sparc/insts.lisp +++ b/src/compiler/sparc/insts.lisp @@ -32,9 +32,9 @@ (error "~S isn't a floating-point register." tn)) (let ((offset (tn-offset tn))) (cond ((> offset 31) - (assert (member :sparc-v9 *backend-subfeatures*)) + (aver (member :sparc-v9 *backend-subfeatures*)) ;; No single register encoding greater than reg 31. - (assert (zerop (mod offset 2))) + (aver (zerop (mod offset 2))) ;; Upper bit of the register number is encoded in the low bit. (1+ (- offset 32))) (t @@ -64,12 +64,12 @@ Otherwise, use the Sparc register names") (+ (tn-offset loc) 32)) (double-reg (let ((offset (tn-offset loc))) - (assert (zerop (mod offset 2))) + (aver (zerop (mod offset 2))) (values (+ offset 32) 2))) #!+long-float (long-reg (let ((offset (tn-offset loc))) - (assert (zerop (mod offset 4))) + (aver (zerop (mod offset 4))) (values (+ offset 32) 4))))) (control-registers 96) @@ -1258,7 +1258,7 @@ about function addresses and register values.") (defun emit-relative-branch-integer (segment a op2 cond-or-target target &optional (cc :icc) (pred :pt)) (declare (type integer-condition-register cc)) - (assert (member :sparc-v9 *backend-subfeatures*)) + (aver (member :sparc-v9 *backend-subfeatures*)) (emit-back-patch segment 4 (lambda (segment posn) (unless target @@ -1276,7 +1276,7 @@ about function addresses and register values.") offset))))) (defun emit-relative-branch-fp (segment a op2 cond-or-target target &optional (cc :fcc0) (pred :pt)) - (assert (member :sparc-v9 *backend-subfeatures*)) + (aver (member :sparc-v9 *backend-subfeatures*)) (emit-back-patch segment 4 (lambda (segment posn) (unless target @@ -1391,7 +1391,7 @@ about function addresses and register values.") (integer-condition cc) target)) (t - (assert (null cc)) + (aver (null cc)) (emit-format-3-immed segment #b10 (branch-condition condition) #b111010 0 1 target))))) @@ -1438,7 +1438,7 @@ about function addresses and register values.") (destructuring-bind (&optional fcc pred) args (emit-relative-branch-fp segment 0 #b101 condition target (or fcc :fcc0) (or pred :pt)))) (t - (assert (null args)) + (aver (null args)) (emit-relative-branch segment 0 #b110 condition target t))))) (define-instruction fbp (segment condition target &optional fcc pred) diff --git a/src/compiler/sparc/static-fn.lisp b/src/compiler/sparc/static-fn.lisp index ec94e28..1e2154e 100644 --- a/src/compiler/sparc/static-fn.lisp +++ b/src/compiler/sparc/static-fn.lisp @@ -40,11 +40,10 @@ (moves))) (defun static-fun-template-vop (num-args num-results) - (assert (and (<= num-args register-arg-count) + (unless (and (<= num-args register-arg-count) (<= num-results register-arg-count)) - (num-args num-results) - "Either too many args (~W) or too many results (~W). Max = ~W" - num-args num-results register-arg-count) + (error "either too many args (~W) or too many results (~W); max = ~W" + num-args num-results register-arg-count)) (let ((num-temps (max num-args num-results))) (collect ((temp-names) (temps) (arg-names) (args) (result-names) (results)) (dotimes (i num-results) diff --git a/src/compiler/sparc/system.lisp b/src/compiler/sparc/system.lisp index 18c377e..91c98b3 100644 --- a/src/compiler/sparc/system.lisp +++ b/src/compiler/sparc/system.lisp @@ -241,7 +241,7 @@ (let ((offset (- (* (+ index vector-data-offset) n-word-bytes) other-pointer-lowtag))) - (assert (typep offset '(signed-byte 13))) + (aver (typep offset '(signed-byte 13))) (inst ld count count-vector offset) (inst add count 1) (inst st count count-vector offset)))) diff --git a/version.lisp-expr b/version.lisp-expr index b0a83b5..bb24120 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.0.17" +"0.9.0.18"