Custom Query (1030 matches)

(setq path (make-pathname :name :unspecific
                          :type :unspecific
                          :directory '(:absolute)))
=> #P"/"

(merge-pathnames path "foo.bar")
=> #P"/"

(probe-file path)
=> #P"/"

(let ((*default-pathname-defaults* "foo.bar"))
  (probe-file path))
=> NIL

The first three results are correct. The last is not.

Typep doesn't check array type dimensions:

(typep "" '(string 3)) => T, should be nil

? (compile nil '(lambda (c)
                  (declare (optimize (safety 1)))
                  (declare (type (integer 30074 1948824693) c))
                  (ash c (min 82 -28192897))))
> Error: 28192897 : value doesn't match constraint :U8CONST in template for NATURAL-SHIFT-RIGHT .
> While executing: MATCH-VREG, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.