Custom Query (1030 matches)

I'd be grateful if you made LISP beginners' (like me) life easier by distributing all neccessary .cdb files or whatever is needed to use Cocoa classes.

I've tried to use OS X AddressBook and unfortunately found that it is much harder than I anticipated.

Tutorial on Trac Wiki is very nice, but it does not mention how to load frameworks. It's hard to find requred information in the documentation unless one knows what to look for.

After entire evening of goolging I've collected dozen of code snippets that do not work, and managed to generate FFI files which need yet another tool to process and more lisp voodoo :(

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 >

(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))