failed AVER: SB-C::EXPRESSION
This is probably a bug in SBCL itself. (Alternatively, SBCL
might have been corrupted by bad user code, e.g. by an undefined
Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers
from alien code or from unsafe Lisp code; or there might be a
bug in the OS or hardware that SBCL is running on.) If it seems
to be a bug in SBCL itself, the maintainers would like to know
about it. Bug reports are welcome on the SBCL mailing lists,
which you can find at .
[Condition of type SB-INT:BUG]
Restarts:
0: [*ABORT] Return to SLIME's top level.
1: [ABORT] abort thread (#)
Backtrace:
0: (SB-C::RECONSTRUCT-LEXENV #S(SB-KERNEL:LEXENV :FUNS ((#1=#:G5 SB-SYS:MACRO . #) (#1# SB-SYS:MACRO . #)) :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTR..
Locals:
LEXENV = #S(SB-KERNEL:LEXENV :FUNS ((#:G5 SB-SYS:MACRO . #) (#:G5 SB-SYS:MACRO . #)) :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA NIL ...)
1: (SB-C:MAYBE-INLINE-SYNTACTIC-CLOSURE (LAMBDA (SOCKET VALUE) (DECLARE (TYPE STREAM SOCKET) (TYPE # VALUE) (OPTIMIZE # # # # #)) (BLOCK WRITE-UINT1 (WRITE-BYTE VALUE SOCKET) (VALUES))) #S(SB-KERNEL:LEXE..
Locals:
LAMBDA = (LAMBDA (SOCKET VALUE) ..)
LEXENV = #S(SB-KERNEL:LEXENV :FUNS ((#:G5 SB-SYS:MACRO . #) (#:G5 SB-SYS:MACRO . #)) :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA NIL ...)
2: ((FLET SB-IMPL::DEFUN-EXPANDER :IN "SYS:SRC;CODE;DEFBOOT.LISP") #S(SB-KERNEL:LEXENV :FUNS ((#1=#:G5 SB-SYS:MACRO . #) (#1# SB-SYS:MACRO . #)) :VARS..
Locals:
SB-IMPL::BODY = ((DECLARE (TYPE STREAM SOCKET) ..))
SB-IMPL::ENV = #S(SB-KERNEL:LEXENV :FUNS ((#:G5 SB-SYS:MACRO . #) (#:G5 SB-SYS:MACRO . #)) :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA NIL ...)
SB-IMPL::EXTRA-INFO = NIL
SB-IMPL::LAMBDA-LIST = (SOCKET VALUE)
SB-IMPL::NAME = WRITE-UINT1
SB-IMPL::SNIPPET = NIL
3: ((FLET SB-IMPL::PERFORM-EXPANSION :IN MACROEXPAND-1) # NIL)
Locals:
SB-IMPL::EXPANDER = #
SB-IMPL::EXPANSION = NIL
SB-IMPL::EXPANSION-P = NIL
4: ((LAMBDA NIL :IN SB-WALKER::WALK-FORM-INTERNAL))
Locals:
SB-WALKER::FN = DEFUN
Catch-tags:
(DEFUN CL-POSTGRES::WRITE-UINT1 (CL-POSTGRES::SOCKET CL-POSTGRES::VALUE)
(DECLARE (TYPE STREAM CL-POSTGRES::SOCKET)
(TYPE (UNSIGNED-BYTE 8) CL-POSTGRES::VALUE)
(OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 1) (DEBUG 1)
(COMPILATION-SPEED 0)))
(WRITE-BYTE CL-POSTGRES::VALUE CL-POSTGRES::SOCKET)
(VALUES))
5: (SB-C::CALL-WITH-CURRENT-SOURCE-FORM # (DEFUN WRITE-UINT1 (SOCKET VALUE) (DECLARE (TYPE STREAM SOCKET) (TYPE # VALUE) (OPTIMIZE # #..
Locals:
FORMS = ((DEFUN WRITE-UINT1 (SOCKET VALUE) ..))
THUNK = #
6: (SB-WALKER::WALK-FORM-INTERNAL (DEFUN WRITE-UINT1 (SOCKET VALUE) (DECLARE (TYPE STREAM SOCKET) (TYPE # VALUE) (OPTIMIZE # # # # #)) (WRITE-BYTE VALUE SOCKET) (VALUES)) :EVAL #S(SB-KERNEL:LEXENV :FUNS ..
Locals:
CONTEXT = :EVAL
ENV = #S(SB-KERNEL:LEXENV :FUNS ((#:G5 SB-SYS:MACRO . #)) :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA NIL ...)
FORM = (DEFUN WRITE-UINT1 (SOCKET VALUE) ..)
Catch-tags:
(DEFUN CL-POSTGRES::WRITE-UINT1 (CL-POSTGRES::SOCKET CL-POSTGRES::VALUE)
(DECLARE (TYPE STREAM CL-POSTGRES::SOCKET)
(TYPE (UNSIGNED-BYTE 8) CL-POSTGRES::VALUE)
(OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 1) (DEBUG 1)
(COMPILATION-SPEED 0)))
(WRITE-BYTE CL-POSTGRES::VALUE CL-POSTGRES::SOCKET)
(VALUES))
7: (SB-WALKER::WALK-TEMPLATE-HANDLE-REPEAT-1 ((DEFUN WRITE-UINT1 #1=(SOCKET VALUE) (DECLARE #2=# # . #3=#) (WRITE-BYTE VALUE SOCKET) . #4=(#)) (DEFUN WRITE-INT1 #1# (DECLARE #2# # . #3#) (WRITE-BYTE # SO..
Locals:
CONTEXT = :EVAL
ENV = #S(SB-KERNEL:LEXENV :FUNS ((#:G5 SB-SYS:MACRO . #)) :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA NIL ...)
FORM = ((DEFUN WRITE-UINT1 (SOCKET VALUE) ..))
REPEAT-TEMPLATE = (EVAL)
STOP-FORM = NIL
TEMPLATE = ((EVAL))
8: (SB-WALKER::WALK-TEMPLATE-HANDLE-REPEAT-1 ((DECLAIM (INLINE WRITE-INT1 WRITE-UINT1)) (DEFUN WRITE-UINT1 #1=(SOCKET VALUE) (DECLARE #2=# # . #3=#) (WRITE-BYTE VALUE SOCKET) . #4=(#)) (DEFUN WRITE-INT1 ..
Locals:
CONTEXT = :EVAL
ENV = #S(SB-KERNEL:LEXENV :FUNS ((#:G5 SB-SYS:MACRO . #)) :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA NIL ...)
FORM = ((DECLAIM (INLINE WRITE-INT1 WRITE-UINT1)) ..)
REPEAT-TEMPLATE = (EVAL)
STOP-FORM = NIL
TEMPLATE = ((EVAL))
9: (SB-WALKER::WALK-TEMPLATE (PROGN (DECLAIM (INLINE WRITE-INT1 WRITE-UINT1)) (DEFUN WRITE-UINT1 #1=(SOCKET VALUE) (DECLARE #2=# # . #3=#) (WRITE-BYTE VALUE SOCKET) . #4=(#)) (DEFUN WRITE-INT1 #1# (DECLA..
Locals:
CONTEXT = :EVAL
ENV = #S(SB-KERNEL:LEXENV :FUNS ((#:G5 SB-SYS:MACRO . #)) :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA NIL ...)
FORM = (PROGN ..)
TEMPLATE = (NIL SB-WALKER::REPEAT (EVAL))
10: ((LAMBDA NIL :IN SB-WALKER::WALK-FORM-INTERNAL))
[No Locals]
Catch-tags:
(PROGN
(DECLAIM (INLINE CL-POSTGRES::WRITE-INT1 CL-POSTGRES::WRITE-UINT1))
(DEFUN CL-POSTGRES::WRITE-UINT1 (CL-POSTGRES::SOCKET CL-POSTGRES::VALUE)
(DECLARE (TYPE STREAM CL-POSTGRES::SOCKET)
(TYPE (UNSIGNED-BYTE 8) CL-POSTGRES::VALUE)
(OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 1) (DEBUG 1)
(COMPILATION-SPEED 0)))
(WRITE-BYTE CL-POSTGRES::VALUE CL-POSTGRES::SOCKET)
(VALUES))
(DEFUN CL-POSTGRES::WRITE-INT1 (CL-POSTGRES::SOCKET CL-POSTGRES::VALUE)
(DECLARE (TYPE STREAM CL-POSTGRES::SOCKET)
(TYPE (SIGNED-BYTE 8) CL-POSTGRES::VALUE)
(OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 1) (DEBUG 1)
(COMPILATION-SPEED 0)))
(WRITE-BYTE (LDB (BYTE 8 0) CL-POSTGRES::VALUE) CL-POSTGRES::SOCKET)
(VALUES)))
11: (SB-C::CALL-WITH-CURRENT-SOURCE-FORM # (PROGN (DECLAIM (INLINE WRITE-INT1 WRITE-UINT1)) (DEFUN WRITE-UINT1 #1=(SOCKET VALUE) (DECLA..
Locals:
FORMS = ((PROGN ..))
THUNK = #
12: (SB-WALKER::WALK-FORM-INTERNAL (PROGN (DECLAIM (INLINE WRITE-INT1 WRITE-UINT1)) (DEFUN WRITE-UINT1 #1=(SOCKET VALUE) (DECLARE #2=# # . #3=#) (WRITE-BYTE VALUE SOCKET) . #4=(#)) (DEFUN WRITE-INT1 #1# (..
Locals:
CONTEXT = :EVAL
ENV = #S(SB-KERNEL:LEXENV :FUNS ((#:G5 SB-SYS:MACRO . #)) :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA NIL ...)
FORM = (PROGN ..)
Catch-tags:
(PROGN
(DECLAIM (INLINE CL-POSTGRES::WRITE-INT1 CL-POSTGRES::WRITE-UINT1))
(DEFUN CL-POSTGRES::WRITE-UINT1 (CL-POSTGRES::SOCKET CL-POSTGRES::VALUE)
(DECLARE (TYPE STREAM CL-POSTGRES::SOCKET)
(TYPE (UNSIGNED-BYTE 8) CL-POSTGRES::VALUE)
(OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 1) (DEBUG 1)
(COMPILATION-SPEED 0)))
(WRITE-BYTE CL-POSTGRES::VALUE CL-POSTGRES::SOCKET)
(VALUES))
(DEFUN CL-POSTGRES::WRITE-INT1 (CL-POSTGRES::SOCKET CL-POSTGRES::VALUE)
(DECLARE (TYPE STREAM CL-POSTGRES::SOCKET)
(TYPE (SIGNED-BYTE 8) CL-POSTGRES::VALUE)
(OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 1) (DEBUG 1)
(COMPILATION-SPEED 0)))
(WRITE-BYTE (LDB (BYTE 8 0) CL-POSTGRES::VALUE) CL-POSTGRES::SOCKET)
(VALUES)))
13: ((FLET SWANK/BACKEND:COLLECT-MACRO-FORMS :IN "/home/phoe/.emacs.d/elpa/26.1/develop/slime-20190312.2124/swank/sbcl.lisp") (PROGN (DECLAIM (INLINE WRITE-INT1 WRITE-UINT1)) (DEFUN WRITE-UINT1 #1=(SOCKET..
Locals:
SWANK/SBCL::COMPILER-MACRO-FORMS = ((SB-C:SOURCE-LOCATION))
SWANK/SBCL::ENVIRONMENT = NIL
SWANK/SBCL::FORM = (PROGN ..)
SWANK/SBCL::FUNCTION-QUOTED-FORMS = NIL
SWANK/SBCL::MACRO-FORMS = ((DEFUN WRITE-UINT1 (SOCKET VALUE) ..))
14: (SWANK/BACKEND:COLLECT-MACRO-FORMS (PROGN (DECLAIM (INLINE WRITE-INT1 WRITE-UINT1)) (DEFUN WRITE-UINT1 #1=(SOCKET VALUE) (DECLARE #2=# # . #3=#) (WRITE-BYTE VALUE SOCKET) . #4=(#)) (DEFUN WRITE-INT1 #..
Locals:
ENV = NIL
F = #
FORM = (PROGN ..)
#:G7 = (PROGN ..)
#:G8 = NIL
15: ((FLET "FUN1" :IN SWANK-MACROSTEP::COLLECT-MACRO-FORMS-IN-CONTEXT))
Locals:
SWANK-MACROSTEP::FORM = (PROGN ..)
16: (SWANK-MACROSTEP::COLLECT-MACRO-FORMS-IN-CONTEXT (PROGN (DECLAIM (INLINE WRITE-INT1 WRITE-UINT1)) (DEFUN WRITE-UINT1 #1=(SOCKET VALUE) (DECLARE #2=# # . #3=#) (WRITE-BYTE VALUE SOCKET) . #4=(#)) (DEFU..
Locals:
CONTEXT = ("" "")
FORM = (PROGN ..)
17: ((LAMBDA NIL :IN SWANK-MACROSTEP:MACROSTEP-EXPAND-1))
Locals:
SWANK-MACROSTEP::COMPILER-MACROS? = T
SWANK-MACROSTEP::CONTEXT = ("" "")
SWANK-MACROSTEP::ERROR-MESSAGE = NIL
SWANK-MACROSTEP::ERROR-MESSAGE#1 = NIL
SWANK-MACROSTEP::EXPANSION = (PROGN ..)
SWANK-MACROSTEP::EXPANSION#1 = (PROGN ..)
SWANK-MACROSTEP::FORM#1 = (INTEGER-WRITER 1)
STRING = "(integer-writer 1)"
18: (SWANK/BACKEND:CALL-WITH-SYNTAX-HOOKS #)
Locals:
F = #
FN = #
#:G5 = #
19: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #)
Locals:
FUN = #
PACKAGE = NIL
20: (SWANK-MACROSTEP:MACROSTEP-EXPAND-1 "(integer-writer 1)" T ("" ""))
Locals:
COMPILER-MACROS? = T
CONTEXT = ("" "")
STRING = "(integer-writer 1)"
21: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK-MACROSTEP:MACROSTEP-EXPAND-1 "(integer-writer 1)" T (QUOTE ("" ""))) #)
Locals:
SB-KERNEL:LEXENV = #
SB-IMPL::ORIGINAL-EXP = (SWANK-MACROSTEP:MACROSTEP-EXPAND-1 "(integer-writer 1)" T '("" ""))
22: (EVAL (SWANK-MACROSTEP:MACROSTEP-EXPAND-1 "(integer-writer 1)" T (QUOTE ("" ""))))
Locals:
SB-IMPL::ORIGINAL-EXP = (SWANK-MACROSTEP:MACROSTEP-EXPAND-1 "(integer-writer 1)" T '("" ""))
23: (SWANK:EVAL-FOR-EMACS (SWANK-MACROSTEP:MACROSTEP-EXPAND-1 "(integer-writer 1)" T (QUOTE ("" ""))) ":cl-postgres" 999)
Locals:
BUFFER-PACKAGE = ":cl-postgres"
CONDITION = #" {1011774DB3}>
FORM = (SWANK-MACROSTEP:MACROSTEP-EXPAND-1 "(integer-writer 1)" T '("" ""))
ID = 999
OK = NIL
RESULT = NIL
24: ((LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD))
Locals:
#:G7 = NIL
25: (SWANK/SBCL::CALL-WITH-BREAK-HOOK # #)
Locals:
CONTINUATION = #
HOOK = #
26: ((FLET SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/home/phoe/.emacs.d/elpa/26.1/develop/slime-20190312.2124/swank/sbcl.lisp") # #
SWANK/SBCL::HOOK = #
27: (SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK # #)
Locals:
F = #
FUN = #
#:G7 = #
#:G8 = #
HOOK = #
28: ((LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD))
[No Locals]
29: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-INPUT* . #)) #)
Locals:
ALIST = ((*STANDARD-INPUT* . #))
FUN = #
#:N-SAVE-BS2 = 69904546414712
RLIST = ((*STANDARD-INPUT* . #))
VALS = (#)
VARS = (*STANDARD-INPUT*)
30: ((FLET "FORM-FUN-5" :IN SWANK::SPAWN-WORKER-THREAD))
Locals:
SWANK::CONNECTION = #
31: ((LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD))
Locals:
#:CELL4 = (:CONDITION)
SWANK::CONNECTION = #
SWANK::CONNECTION#1 = #
#:G0 = #
32: (SWANK::CALL-WITH-BINDINGS NIL #)
Locals:
ALIST = NIL
FUN = #
33: ((LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD))
Locals:
SWANK::CONNECTION = #
34: ((FLET SB-UNIX::BODY :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
35: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
36: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
37: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-THREAD::CALL-WITH-MUTEX))
38: (SB-THREAD::CALL-WITH-MUTEX # # NIL # NIL)
40: ("foreign function: call_into_lisp")
41: ("foreign function: new_thread_trampoline")