[Openmcl-devel] Bug in OPEN with :element-type '(unsigned-byte 65)

[Eric Marsden]

Hi,

(unsigned-byte 65) is a finite recognizable subtype of integer, so I
believe that this should be allowed. 

,----
| ? (lisp-implementation-version)
| "Version 1.8-dev-r15052M  (LinuxX8664)"
| ? (open "/tmp/foo.txt" :direction :output :element-type '(unsigned-byte 65) :if-does-not-exist :create)
| > Error: Not an ivector subtag: 182
| > While executing: CCL::SUBTAG-BYTES, in process listener(1).
| > Type :POP to abort, :R for a list of available restarts.
| > Type :? for other options.
| 1 > :b
|  (7FC5DCEF6898) : 0 (SUBTAG-BYTES 182 1) 93
|  (7FC5DCEF68B8) : 1 (FUNCALL #'#<(:INTERNAL CCL::SCALE-BUFFER-SIZE CCL::OPTIMAL-BUFFER-SIZE)> 4096) 85
|  (7FC5DCEF68E0) : 2 (MAKE-FILE-STREAM "/tmp/foo.txt" :OUTPUT (INTEGER 0 36893488147419103231) :ERROR :CREATE CCL::BASIC-FILE-STREAM :DEFAULT :PRIVATE T) 2165
|  (7FC5DCEF69B8) : 3 (OPEN "/tmp/foo.txt" :DIRECTION :OUTPUT :ELEMENT-TYPE (UNSIGNED-BYTE 65) :IF-EXISTS :ERROR :IF-DOES-NOT-EXIST :CREATE :EXTERNAL-FORMAT :DEFAULT :CLASS FILE-STREAM :SHARING :PRIVATE :BASIC T) 821
`----

(From the ansi-test suite.)

-- 
Eric Marsden