Steel Bank Common Lisp

Richard M Kreuter <kreuter@...> writes:

> Can anybody say what's going wrong in this code?
>
> (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket
> 			      :type :stream :protocol :tcp))
>        (stream (sb-bsd-sockets:socket-make-stream socket
> 						  :input t :output t)))
>   (format t ">> ~S~%" (ignore-errors (pathname stream)))
>   (if (ignore-errors (pathname stream))
>       :pathname
>       :no-pathname))
>>> NIL
> :PATHNAME

Fixed in 0.9.15.13, thanks for the report.

(PATHNAME was UNSAFELY-FLUSHABLE, so the call was elided.)

Cheers,

  -- Nikodemus              Schemer: "Buddha is small, clean, and serious."
                   Lispnik: "Buddha is big, has hairy armpits, and laughs."

Nikodemus Siivola <nikodemus@...> writes:

> Richard M Kreuter <kreuter@...> writes:
>
>> Can anybody say what's going wrong in this code?
>>
>> (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket
>> 			      :type :stream :protocol :tcp))
>>        (stream (sb-bsd-sockets:socket-make-stream socket
>> 						  :input t :output t)))
>>   (format t ">> ~S~%" (ignore-errors (pathname stream)))
>>   (if (ignore-errors (pathname stream))
>>       :pathname
>>       :no-pathname))
>>>> NIL
>> :PATHNAME
>
> Fixed in 0.9.15.13, thanks for the report.
>
> (PATHNAME was UNSAFELY-FLUSHABLE, so the call was elided.)

I don't understand this.  Firstly, I don't understand why the call can
ever be elided, since the result is being used; secondly, what is the
difference between PATHNAME and all the other UNSAFELY-FLUSHABLE
functions we have?

Consider
  (defun foo (x)
    (format t "~S~%" (ignore-errors (pathname x)))
    (if (ignore-errors (pathname x)) :pathname :no-pathname))
and
  (defun bar (x)
    (format t "~S~%" (ignore-errors (package-name x)))
    (if (ignore-errors (package-name x)) :package :no-package))

I can trigger Richard's bug with 
  (foo sb-sys::*tty*)
but not with
  (bar "DOES-NOT-EXIST")
and I don't know why.

Cheers,

Christophe