Skip to content

Instantly share code, notes, and snippets.

@ldunn
Created June 25, 2010 04:00
Show Gist options
  • Select an option

  • Save ldunn/452382 to your computer and use it in GitHub Desktop.

Select an option

Save ldunn/452382 to your computer and use it in GitHub Desktop.
2:3:
error:
Required argument is not a symbol: (LAST (SLOT-VALUE MESSAGE 'ARGUMENTS))
--> SB-INT:DX-FLET
==>
(FLET ((#:FORM-FUN-[MSG-HOOK]4 ()
(LET (#)
(DESCRIBE LITHT::MESSAGE)
(CL-IRC:PRIVMSG CL-IRC:CONNECTION "#bots" #)))
(#:FUN[MSG-HOOK]1 (STRING= (LAST #) "ohi litht")
(CL-IRC:PRIVMSG CL-IRC:CONNECTION (FIRST #) "ohi!")))
(DECLARE
(SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:FORM-FUN-[MSG-HOOK]4)
(FUNCTION #:FUN[MSG-HOOK]1)))
(DECLARE (OPTIMIZE (SB-C::CHECK-TAG-EXISTENCE 0)))
(BLOCK #:BLOCK[MSG-HOOK]2
(SB-INT:DX-LET ((#:CELL[MSG-HOOK]3 #))
(DECLARE (IGNORABLE #:CELL[MSG-HOOK]3))
(TAGBODY
(SB-IMPL::%HANDLER-BIND # #)
#:TAG[MSG-HOOK]0
(RETURN-FROM #:BLOCK[MSG-HOOK]2 #)))))
note:
deleting unused function
(FLET #:FORM-FUN-[MSG-HOOK]4)
--> SB-INT:DX-FLET
==>
(FLET ((#:FORM-FUN-[MSG-HOOK]4 ()
(LET (#)
(DESCRIBE LITHT::MESSAGE)
(CL-IRC:PRIVMSG CL-IRC:CONNECTION "#bots" #)))
(#:FUN[MSG-HOOK]1 (STRING= (LAST #) "ohi litht")
(CL-IRC:PRIVMSG CL-IRC:C
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment