Custom Query (1030 matches)

A simple grep dialog, ala MCL. I used this all the time!

When having *default-pathname-defaults* set to "", and doing (load "foo.lisp"), *load-pathname* is set to truename of that file, but according to the ​spec it should be set to (pathname (merge-pathnames filespec)).

*compile-file-pathname* gets the right value.

ccl:receive-from signals "Interrupted system call (error #4) during recvfrom". Typically happens when this is run in a thread.

(process-run-function "udp reader"
                      (lambda ()
                        (let ((socket (ccl:make-socket
                                       :type :datagram
                                       :reuse-address t
                                       :external-format '(unsigned-byte 8)
                                       :format :binary
                                       :local-port 0)))
                          (handler-case
                              (ccl:receive-from socket 32000)
                            (error (c)
                              (format t "Receive-from error: ~a" c))))))

If I run above and type :proc, I get:

Receive-from error: on #<CCL::UDP-SOCKET #x89DFD3E> : 
Interrupted system call (error #4) during recvfrom
8 :    udp reader   [Active]  (Suspended)
1 : -> listener     [Active] 
0 :    Initial      [Sleep] 

(lisp-implementation-version) "Version 1.3-RC1-r11719M (DarwinPPC32)"