[cl-containers-devel] Problems with priority queues

[Gary King]

Hi Josip,

This hasn't changed in metatilities and it looks to me as if SBCL is  
confused. The error message looks like it thinks I'm using ~:[. As in:

> * (format t "~:[A~;B~]" nil)
> A
> NIL
> * (format t "~:[A~;B~]" t)
> B
> NIL
> * (format t "~:[AB~]" t)
>
> debugger invoked on a SB-FORMAT:FORMAT-ERROR:
>   error in FORMAT: must specify exactly two sections
>   ~:[AB~]
>     ^


But ~@[ should be OK. What does

> (format t "~@[.~a~]" 23)

give you?





On Apr 30, 2007, at 4:35 AM, Josip Gracin wrote:

> ; compiling (DEFUN NICELY-FORMAT-FILENAME ...)
> ; file: /home/gracin/.sbcl/site/metatilities/dev/utilities/files.lisp
> ; in: DEFUN NICELY-FORMAT-FILENAME
> ;     (FORMAT STREAM "~(~a~@[.~A~] {~:[...:~]~{~a:~}}~)"
> ;           (PATHNAME-NAME METABANG.UTILITIES::FILE)
> ;           (AND METABANG.UTILITIES::SHOW-TYPE?
> ;                (PATHNAME-TYPE METABANG.UTILITIES::FILE))
> ;           (AND METABANG.UTILITIES::INITIAL-ELLIPSIS?
> ;                (<= (LENGTH METABANG.UTILITIES::DIRECTORIES)
> ;                    METABANG.UTILITIES::DEPTH))
> ;           (LAST METABANG.UTILITIES::DIRECTORIES  
> METABANG.UTILITIES::DEPTH))
> ; --> FORMAT
> ; ==>
> ;   (FORMATTER "~(~a~@[.~A~] {~:[...:~]~{~a:~}}~)")
> ;
> ; caught ERROR:
> ;   (in macroexpansion of (FORMATTER "~(~a~@[.~A~] {~:[...:~]~ 
> {~a:~}}~)"))
> ;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
> ;   error in FORMAT: must specify exactly two sections
> ;     ~(~a~@[.~A~] {~:[...:~]~{~a:~}}~)
> ;                     ^
>
> ; ==>
> ;   (FORMAT SB-C::DEST (FORMATTER "~(~a~@[.~A~] {~:[...:~]~{~a:~}} 
> ~)") #:G65
> ;           #:G66 #:G67 #:G68)
> ;
> ; note: The second argument never returns a value.
--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM