Plaster
New
List
Login
common-lisp
default
isoraqathedh
2021.03.07 17:50:49
(with-open-file (s #P"~/Documents/My Scans/meta/meta.lisp.gz" :direction :input :element-type '(unsigned-byte 8)) (length (read (chipz:make-decompressing-stream 'chipz:gzip s))))
Raw
Annotate
Repaste
Annotations
text
default
isoraqathedh
2021.03.07 17:51:03
There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION SB-GRAY:STREAM-READ-CHAR (4)> when called with arguments (#<CHIPZ::DECOMPRESSING-STREAM {1003B441C3}>). [Condition of type SB-PCL::NO-APPLICABLE-METHOD-ERROR] See also: Common Lisp Hyperspec, 7.6.6 [:section] Restarts: 0: [RETRY] Retry calling the generic function. 1: [RETRY] Retry SLIME REPL evaluation request. 2: [*ABORT] Return to SLIME's top level. 3: [ABORT] abort thread (#<THREAD "repl-thread" RUNNING {1004DDE493}>) Backtrace: 0: ((:METHOD NO-APPLICABLE-METHOD (T)) #<STANDARD-GENERIC-FUNCTION SB-GRAY:STREAM-READ-CHAR (4)> #<CHIPZ::DECOMPRESSING-STREAM {1003B441C3}>) [fast-method] 1: (SB-PCL::CALL-NO-APPLICABLE-METHOD #<STANDARD-GENERIC-FUNCTION SB-GRAY:STREAM-READ-CHAR (4)> (#<CHIPZ::DECOMPRESSING-STREAM {1003B441C3}>)) 2: (READ-CHAR #<CHIPZ::DECOMPRESSING-STREAM {1003B441C3}> T 0 #<unused argument>) 3: (SB-IMPL::%READ-PRESERVING-WHITESPACE #<CHIPZ::DECOMPRESSING-STREAM {1003B441C3}> T (NIL) T) 4: (SB-IMPL::%READ-PRESERVING-WHITESPACE #<CHIPZ::DECOMPRESSING-STREAM {1003B441C3}> T (NIL) NIL) 5: (READ #<CHIPZ::DECOMPRESSING-STREAM {1003B441C3}> T NIL NIL) 6: ((LAMBDA ())) 7: (SB-INT:SIMPLE-EVAL-IN-LEXENV (WITH-OPEN-FILE (S #P"~/Documents/My Scans/meta/meta.lisp.gz" :DIRECTION :INPUT :ELEMENT-TYPE (QUOTE #)) (LENGTH (READ #))) #<NULL-LEXENV>) 8: (EVAL (WITH-OPEN-FILE (S #P"~/Documents/My Scans/meta/meta.lisp.gz" :DIRECTION :INPUT :ELEMENT-TYPE (QUOTE #)) (LENGTH (READ #)))) --more--
Raw
Repaste
common-lisp
default
isoraqathedh
2021.03.07 17:56:22
#( (ignore boc 1 :* :*) (ignore boc 2 :* :*) (ignore boc 3 :* :*) (ignore boc 4 :* :*) (ignore boc 5 :* :*) (ignore boc 6 :* :*) (ignore boc 7 :* :*) (ignore boc 8 :* :*) (ignore boc 9 :* :*) ;; (ignore boc 6 2 :*) (ignore boc 6 3 :*) ;; (ignore boc 7 38 :*) (ignore boc 7 39 :*) (ignore boc 7 49 :*) ;; (ignore boc 8 21 :*) (ignore boc 8 27 :*) (ignore boc 8 28 :*) ;; (ignore boc 9 34 :*) (ignore boc 9 37 :*) (ignore boc 10 41 :*) (ignore boc 11 1 :*) (ignore boc 13 47 :*) (ignore boc 14 29 :*) (ignore boc 14 40 :*) (ignore boc 18 15 :*) (ignore boc 24 35 :*) (ignore boc 32 28 :*) (ignore boc 32 42 :*) (ignore purple 1 2 :*) (ignore purple 1 20 :*) (ignore purple 1 21 :*) (ignore outer-periphery 1 58 :*) (ignore outer-periphery 1 59 :*) (ignore outer-periphery 1 60 :*) (ignore outer-periphery 1 61 :*) (ignore outer-periphery 1 62 :*) (ignore outer-periphery 1 63 :*) (ignore outer-periphery 1 64 :*) (ignore outer-periphery 1 65 :*) (ignore outer-periphery 1 66 :*) (ignore annex 2 2 :*) (ignore elim 1 1 :*) (ignore elim 1 2 :*) (ignore elim 1 4 :*) (ignore jrg 51 1 :*) (entry :page (boc 10 01 1) :scan-date "2013-11-07 10:53:02" :title "Junction words" :subject ("Sekapon" "Languages") :comment "" :location #P"Book of Conworlds/Book 10/01a-Sk-Junction words.jpg") (entry :page (boc 10 02 1) :scan-date "2013-11-07 10:53:47" :title "n-Tuples" :subject ("yukũa|Elaga ütæk|Qvaḻsa" "Languages") :comment "" :location #P"Book of Conworlds/Book 10/02a-EQ-n-Tuples.jpg") ;;... )
Raw
Repaste