July 2004 - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

[movitz-cvs] CVS update: movitz/losp/muerte/primitive-functions.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv27175 Modified Files: primitive-functions.lisp Log Message: Implemented bit-vectors. Date: Thu Jul 8 08:28:57 2004 Author: ffjeld Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.25 movitz/losp/muerte/primitive-functions.lisp:1.26 --- movitz/losp/muerte/primitive-functions.lisp:1.25 Thu Jul 8 04:30:26 2004 +++ movitz/losp/muerte/primitive-functions.lisp Thu Jul 8 08:28:57 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Oct 2 21:02:18 2001 ;;;; -;;;; $Id: primitive-functions.lisp,v 1.25 2004/07/08 11:30:26 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.26 2004/07/08 15:28:57 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -658,6 +658,8 @@ (movitz-accessor object movitz-funobj-standard-gf standard-gf-class)) (string (find-class 'string)) + (bit-vector + (find-class 'bit-vector)) (vector (find-class 'vector)) (function

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/arrays.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv26827 Modified Files: arrays.lisp Log Message: Implemented bit-vectors. Date: Thu Jul 8 08:28:52 2004 Author: ffjeld Index: movitz/losp/muerte/arrays.lisp diff -u movitz/losp/muerte/arrays.lisp:1.31 movitz/losp/muerte/arrays.lisp:1.32 --- movitz/losp/muerte/arrays.lisp:1.31 Thu Jul 8 04:30:14 2004 +++ movitz/losp/muerte/arrays.lisp Thu Jul 8 08:28:52 2004 @@ -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.31 2004/07/08 11:30:14 ffjeld Exp $ +;;;; $Id: arrays.lisp,v 1.32 2004/07/08 15:28:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -205,7 +205,13 @@ ((do-it () `(with-inline-assembly (:returns :eax) (:declare-label-set basic-vector-dispatcher - (any-t character u8 unknown u32 unknown code unknown)) + ,(print (loop with x = (make-list 8 :initial-element 'unknown) + for et in '(:any-t :character :u8 :u32 :code :bit) + do (setf (elt x (bt:enum-value + 'movitz::movitz-vector-element-type + et)) + et) + finally (return x)))) (:compile-two-forms (:eax :ebx) array index) (:movl (:eax ,movitz:+other-type-offset+) :ecx) (:cmpb ,(movitz:tag :basic-vector) :cl) @@ -231,19 +237,19 @@ ,(bt:slot-offset 'movitz:movitz-funobj 'movitz::constant0))) (() () '(:sub-program (unknown) (:int 100))) - u32 + :u32 (:movl (:eax :ebx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data)) :ecx) (:call-global-constant box-u32-ecx) (:jmp 'return) - u8 code + :u8 :code (:movl :ebx :ecx) (:shrl ,movitz:+movitz-fixnum-shift+ :ecx) (:movzxb (:eax :ecx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data)) :ecx) (:leal ((:ecx ,movitz:+movitz-fixnum-factor+)) :eax) (:jmp 'return) - character + :character (:movl :ebx :ecx) (:movl :eax :ebx) (:shrl ,movitz:+movitz-fixnum-shift+ :ecx) @@ -251,7 +257,16 @@ (:movb (:ebx :ecx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data)) :ah) (:jmp 'return) - any-t + :bit + (:movl :ebx :ecx) + (:movl :eax :ebx) + (:shrl ,movitz:+movitz-fixnum-shift+ :ecx) + (:xorl :eax :eax) + (:btl :ecx (:ebx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data))) + (:jnc 'return) + (:addl ,movitz:+movitz-fixnum-factor+ :eax) + (:jmp 'return) + :any-t (:movl (:eax :ebx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data)) :eax) return))) @@ -274,13 +289,18 @@ (:testb 7 :cl) (:jnz '(:sub-program (not-a-vector) (:compile-form (:result-mode :ignore) - (error "Not a vector: ~S" vector)))) + (error "Not a vector: ~S." vector)))) (:movl (:ebx ,movitz:+other-type-offset+) :ecx) (:andl #xffff :ecx) (:testb ,movitz:+movitz-fixnum-zmask+ :dl) (:jnz '(:sub-program (not-an-index) (:compile-form (:result-mode :ignore) - (error "Not a vector index: ~S" index)))) + (error "Not a vector index: ~S." index)))) + (:cmpl (:ebx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::num-elements)) + :edx) + (:jnc '(:sub-program (illegal-index) + (:compile-form (:result-mode :ignore) + (error "Index ~S out of range." index)))) ;; t? (:cmpl ,(movitz:basic-vector-type-tag :any-t) :ecx) (:jne 'not-any-t-vector) @@ -317,6 +337,7 @@ (:jmp 'return) not-u8-vector + ;; u32? (:cmpl ,(movitz:basic-vector-type-tag :u32) :ecx) (:jne 'not-u32-vector) (:call-global-constant unbox-u32) @@ -325,6 +346,26 @@ (:jmp 'return) not-u32-vector + ;; bit? + (:cmpl ,(movitz:basic-vector-type-tag :bit) :ecx) + (:jne 'not-u8-vector) + (:testl ,(logxor #xffffffff (* #x1 movitz:+movitz-fixnum-factor+)) + :eax) + (:jne '(:sub-program (not-a-bit) + (:compile-form (:result-mode :ignore) + (error "Not a bit: ~S" value)))) + (:movl :edx :ecx) + (:shrl ,movitz:+movitz-fixnum-shift+ :ecx) + + (:testl :eax :eax) + (:jnz 'set-one-bit) + (:btrl :ecx (:ebx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data))) + (:jmp 'return) + set-one-bit + (:btsl :ecx (:ebx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data))) + (:jmp 'return) + + not-bit-vector (:compile-form (:result-mode :ignore) (error "Not a vector: ~S" vector)) return) @@ -554,11 +595,11 @@ (replace array initial-contents))) array)) -(defun make-basic-vector%u8 (dimensions fill-pointer initial-element initial-contents) - (let ((array (malloc-data-words (truncate (+ dimensions 3) 4)))) +(defun make-basic-vector%u8 (length fill-pointer initial-element initial-contents) + (let ((array (malloc-data-words (truncate (+ length 3) 4)))) (setf (memref array #.(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::num-elements) 0 :lisp) - dimensions) + length) (setf (memref array #.(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::type) 0 :unsigned-byte32) #.(movitz:basic-vector-type-tag :u8)) @@ -566,16 +607,38 @@ (fill-pointer (setf (fill-pointer array) fill-pointer)) ((array-has-fill-pointer-p array) - (setf (fill-pointer array) dimensions))) + (setf (fill-pointer array) length))) (cond (initial-element (check-type initial-element (unsigned-byte 8)) - (dotimes (i dimensions) + (dotimes (i length) (setf (u8ref%unsafe array i) initial-element))) (initial-contents (replace array initial-contents))) array)) +(defun make-basic-vector%bit (length fill-pointer initial-element initial-contents) + (let ((array (malloc-data-words (truncate (+ length 31) 32)))) + (setf (memref array #.(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::num-elements) + 0 :lisp) + length) + (setf (memref array #.(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::type) + 0 :unsigned-byte32) + #.(movitz:basic-vector-type-tag :bit)) + (cond + (fill-pointer + (setf (fill-pointer array) fill-pointer)) + ((array-has-fill-pointer-p array) + (setf (fill-pointer array) length))) + (cond + (initial-element + (check-type initial-element (unsigned-byte 8)) + (dotimes (i length) + (setf (aref array i) initial-element))) + (initial-contents + (replace array initial-contents))) + array)) + (defun make-basic-vector%code (dimensions fill-pointer initial-element initial-contents) (let ((array (malloc-data-words (truncate (+ dimensions 3) 4)))) (setf (memref array #.(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::num-elements) @@ -631,6 +694,8 @@ ;; These should be replaced by subtypep sometime. ((eq element-type 'character) (make-basic-vector%character dimensions fill-pointer initial-element initial-contents)) + ((member element-type '(bit (unsigned-byte 1)) :test #'equal) + (make-basic-vector%bit dimensions fill-pointer initial-element initial-contents)) ((member element-type '(u8 (unsigned-byte 8)) :test #'equal) (make-basic-vector%u8 dimensions fill-pointer initial-element initial-contents)) ((member element-type '(u32 (unsigned-byte 32)) :test #'equal)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/typep.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv24694 Modified Files: typep.lisp Log Message: Added bit-vector for typep, and some type-predicate-functions. Date: Thu Jul 8 08:28:12 2004 Author: ffjeld Index: movitz/losp/muerte/typep.lisp diff -u movitz/losp/muerte/typep.lisp:1.22 movitz/losp/muerte/typep.lisp:1.23 --- movitz/losp/muerte/typep.lisp:1.22 Thu Jul 8 04:30:41 2004 +++ movitz/losp/muerte/typep.lisp Thu Jul 8 08:28:12 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 8 11:07:53 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: typep.lisp,v 1.22 2004/07/08 11:30:41 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.23 2004/07/08 15:28:12 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -242,6 +242,8 @@ (make-basic-vector-typep :any-t)) ((string simple-string) (make-basic-vector-typep :character)) + ((bit-vector simple-bit-vector) + (make-basic-vector-typep :bit)) (vector-u8 (make-basic-vector-typep :u8)) (vector-u16 @@ -268,6 +270,10 @@ (cond ((movitz:movitz-subtypep et '(unsigned-byte 8)) (make-basic-vector-typep :u8)) + ((movitz:movitz-subtypep et '(unsigned-byte 32)) + (make-basic-vector-typep :u32)) + ((movitz:movitz-subtypep et 'character) + (make-basic-vector-typep :character)) (t (make-basic-vector-typep :any-t))))) ((integer) (destructuring-bind (&optional (lower-limit '*) (upper-limit '*)) @@ -482,6 +488,15 @@ (define-simple-typep (vector vectorp) (obj) (typep obj 'vector)) +(define-simple-typep (simple-vector simple-vector-p) (obj) + (typep obj 'simple-vector)) + +(define-simple-typep (simple-string simple-string-p) (obj) + (typep obj 'simple-string)) + +(define-simple-typep (simple-bit-vector simple-bit-vector-p) (obj) + (typep obj 'simple-bit-vector)) + (define-simple-typep (pointer pointerp) (obj) (typep obj 'pointer)) @@ -489,7 +504,6 @@ (and (typep x 'cons) (or (eq '* car) (typep (car x) car)) (or (eq '* cdr) (typep (cdr x) cdr)))) - (define-simple-typep (atom atom) (x) (typep x 'atom))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/print.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv25032 Modified Files: print.lisp Log Message: Add printing of bit-vectors. Date: Thu Jul 8 08:23:53 2004 Author: ffjeld Index: movitz/losp/muerte/print.lisp diff -u movitz/losp/muerte/print.lisp:1.10 movitz/losp/muerte/print.lisp:1.11 --- movitz/losp/muerte/print.lisp:1.10 Wed Jun 2 16:50:34 2004 +++ movitz/losp/muerte/print.lisp Thu Jul 8 08:23:53 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Sep 3 11:48:19 2001 ;;;; -;;;; $Id: print.lisp,v 1.10 2004/06/02 23:50:34 ffjeld Exp $ +;;;; $Id: print.lisp,v 1.11 2004/07/08 15:23:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -263,6 +263,10 @@ (write-string "#:" stream)) (write-symbol-name object stream)) (t (error "Huh?"))))) + (bit-vector + (write-string "#*") + (dotimes (i (length object)) + (write (aref object i) :radix nil))) (vector (let ((level *print-level*) (length *print-length*))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/inspect.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv23008 Modified Files: inspect.lisp Log Message: Minor edit. Date: Thu Jul 8 08:23:15 2004 Author: ffjeld Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.13 movitz/losp/muerte/inspect.lisp:1.14 --- movitz/losp/muerte/inspect.lisp:1.13 Wed Jul 7 10:37:20 2004 +++ movitz/losp/muerte/inspect.lisp Thu Jul 8 08:23:15 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Oct 24 09:50:41 2003 ;;;; -;;;; $Id: inspect.lisp,v 1.13 2004/07/07 17:37:20 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.14 2004/07/08 15:23:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -245,7 +245,7 @@ (+ -1 object-location #.(movitz::movitz-type-word-size :movitz-funobj) (funobj-num-constants object)))) - ((or vector-u8 string code-vector) + ((or string code-vector (simple-array (unsigned-byte 8))) (<= object-location location (+ -1 object-location

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/read.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv1376 Modified Files: read.lisp Log Message: Added bit-vector #* read syntax. Date: Thu Jul 8 06:38:16 2004 Author: ffjeld Index: movitz/losp/muerte/read.lisp diff -u movitz/losp/muerte/read.lisp:1.4 movitz/losp/muerte/read.lisp:1.5 --- movitz/losp/muerte/read.lisp:1.4 Fri Apr 23 08:01:56 2004 +++ movitz/losp/muerte/read.lisp Thu Jul 8 06:38:15 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Oct 17 21:50:42 2001 ;;;; -;;;; $Id: read.lisp,v 1.4 2004/04/23 15:01:56 ffjeld Exp $ +;;;; $Id: read.lisp,v 1.5 2004/07/08 13:38:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -266,6 +266,18 @@ (values (make-array (length contents-list) :initial-contents contents-list) form-end + string end))) + (#\* (let* ((token-end (find-token-end string :start (incf i) :end end)) + (bit-vector (make-array (- token-end i) :element-type 'bit))) + (do ((p i (1+ p)) + (q 0 (1+ q))) + ((>= p token-end)) + (case (schar string p) + (#\0 (setf (aref bit-vector q) 0)) + (#\1 (setf (aref bit-vector q) 1)) + (t (error "Illegal bit-vector element: ~S" (schar string p))))) + (values bit-vector + token-end string end))) (#\s (multiple-value-bind (struct-form form-end) (simple-read-from-string string eof-error-p eof-value :start (1+ i) :end end)

1 0

[movitz-cvs] CVS update: movitz/storage-types.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv26461 Modified Files: storage-types.lisp Log Message: Removed some dead code. Date: Thu Jul 8 05:01:52 2004 Author: ffjeld Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.25 movitz/storage-types.lisp:1.26 --- movitz/storage-types.lisp:1.25 Wed Jul 7 10:37:06 2004 +++ movitz/storage-types.lisp Thu Jul 8 05:01:51 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: storage-types.lisp,v 1.25 2004/07/07 17:37:06 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.26 2004/07/08 12:01:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -830,13 +830,6 @@ "Unable to resolve jumper ~S." data) (write-binary 'u32 stream (+ x (movitz-intern-code-vector (movitz-funobj-code-vector obj))))))))) - -;;;(defmethod print-object ((obj movitz-funobj) stream) -;;; (format stream "#<MOVITZ-FUNOBJ ~<ll: ~A~> ~<const: ~A~> ~<code: ~A~>>" -;;; (movitz-funobj-lambda-list obj) -;;; (movitz-funobj-const-list obj) -;;; (movitz-funobj-code-vector obj)) -;;; (call-next-method)) (defmethod print-object ((object movitz-funobj) stream) (if (not (slot-boundp object 'name))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/typep.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv26915 Modified Files: typep.lisp Log Message: Cleaning up some minor stuff after the migration to the new vectors. Also, inform typep that basic-vector corresponds to simple-arrays. Date: Thu Jul 8 04:30:41 2004 Author: ffjeld Index: movitz/losp/muerte/typep.lisp diff -u movitz/losp/muerte/typep.lisp:1.21 movitz/losp/muerte/typep.lisp:1.22 --- movitz/losp/muerte/typep.lisp:1.21 Wed Jul 7 10:37:34 2004 +++ movitz/losp/muerte/typep.lisp Thu Jul 8 04:30:41 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 8 11:07:53 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: typep.lisp,v 1.21 2004/07/07 17:37:34 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.22 2004/07/08 11:30:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -234,12 +234,13 @@ ((function compiled-function) (make-other-typep :funobj)) ((basic-vector) + (break "Basic-vector typep?") + (make-other-typep :basic-vector)) + ((vector simple-array array) (make-other-typep :basic-vector)) - ((vector array) - `(typep ,object 'basic-vector)) (simple-vector (make-basic-vector-typep :any-t)) - (string + ((string simple-string) (make-basic-vector-typep :character)) (vector-u8 (make-basic-vector-typep :u8)) @@ -262,6 +263,12 @@ (if deriver-function `(typep ,object ',(apply deriver-function (cdr type))) (case (car type) + ((simple-array) + (let ((et (cadr type))) + (cond + ((movitz:movitz-subtypep et '(unsigned-byte 8)) + (make-basic-vector-typep :u8)) + (t (make-basic-vector-typep :any-t))))) ((integer) (destructuring-bind (&optional (lower-limit '*) (upper-limit '*)) (cdr type) @@ -383,7 +390,7 @@ #+ignore (defun foo (x) - (typep x '(cons * symbol))) + (typep x '(simple-array (unsigned-byte 4)))) (defmacro define-typep (tname lambda &body body) (let ((fname (format nil "~A-~A" 'typep tname)))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/sequences.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv26445 Modified Files: sequences.lisp Log Message: Cleaning up some minor stuff after the migration to the new vectors. Also, inform typep that basic-vector corresponds to simple-arrays. Date: Thu Jul 8 04:30:36 2004 Author: ffjeld Index: movitz/losp/muerte/sequences.lisp diff -u movitz/losp/muerte/sequences.lisp:1.13 movitz/losp/muerte/sequences.lisp:1.14 --- movitz/losp/muerte/sequences.lisp:1.13 Wed Jul 7 10:37:38 2004 +++ movitz/losp/muerte/sequences.lisp Thu Jul 8 04:30:36 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 11 14:19:23 2001 ;;;; -;;;; $Id: sequences.lisp,v 1.13 2004/07/07 17:37:38 ffjeld Exp $ +;;;; $Id: sequences.lisp,v 1.14 2004/07/08 11:30:36 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -55,7 +55,7 @@ (defun length (sequence) (etypecase sequence - (basic-vector + (simple-array (macrolet ((do-it () `(with-inline-assembly (:returns :eax)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/primitive-functions.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv25492 Modified Files: primitive-functions.lisp Log Message: Cleaning up some minor stuff after the migration to the new vectors. Also, inform typep that basic-vector corresponds to simple-arrays. Date: Thu Jul 8 04:30:27 2004 Author: ffjeld Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.24 movitz/losp/muerte/primitive-functions.lisp:1.25 --- movitz/losp/muerte/primitive-functions.lisp:1.24 Thu Jun 17 02:49:23 2004 +++ movitz/losp/muerte/primitive-functions.lisp Thu Jul 8 04:30:26 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Oct 2 21:02:18 2001 ;;;; -;;;; $Id: primitive-functions.lisp,v 1.24 2004/06/17 09:49:23 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.25 2004/07/08 11:30:26 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -658,8 +658,6 @@ (movitz-accessor object movitz-funobj-standard-gf standard-gf-class)) (string (find-class 'string)) - (basic-vector - (find-class 'vector)) (vector (find-class 'vector)) (function

1 0