Custom Query (1030 matches)

From: Scott McKay <>

> From: Len Livshin <>
> Date: March 26, 2008 9:22:10 AM EDT
> 
> $ /usr/local/openmcl/working-0711-8771/lx86cl64
> Welcome to Clozure Common Lisp Version 1.2-r8771MS  (LinuxX8664)!
> ? (parse-integer nil :junk-allowed t)
> NIL
> 0
> ?
> 
> I think that the common sense interpretation of ":junk-allowed" parameter is that you're allowed to pass junk *in* a string,
> not that you're allowed to pass junk *instead* of a string...

What Dan says.  'parse-integer' takes a string argument;
:junk-allowed t should not change its type signature.

(I need this for ITA)

The deadline specified as argument to CCL:MAKE-SOCKET is only applied to the stream after the connection has been established. This could be changed easily, I think:

(defun make-tcp-stream-socket (fd &rest keys
                                  &key remote-host
                                  remote-port
                                  connect-timeout
                                  deadline
                                  &allow-other-keys)
  (inet-connect fd
                (host-as-inet-host remote-host)
                (port-as-inet-port remote-port "tcp")
                (cond
                  ((and deadline connect-timeout)
                   (min (- deadline (get-internal-real-time)) connect-timeout))
                  (deadline (- deadline (get-internal-real-time)))
                  (connect-timeout connect-timeout)))
  (apply #'make-tcp-stream fd keys))

deng-hhueb 573_$ rm foo bar
deng-hhueb 574_$ mkdir /tmp/foo
deng-hhueb 575_$ touch /tmp/foo/\*
deng-hhueb 576_$ openmcl -n -e '(directory "/tmp/foo/**/*")'
> Error: Illegal use of wildcarded filename "/tmp/foo/*"
> While executing: CCL::NATIVE-TRANSLATED-NAMESTRING, in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Skip evaluation of (directory "/tmp/foo/**/*")
> Type :? for other options.
1 >