i was running an irc bot which had an !eval command which evaluated lisp s-expressions.
it logs the stuff to a file, here they are for today.
most recent last.
lisp Code:
; 2009/5/31 22:15:11 yakman_
(remhash "yakman" *allowed-nicks*)
; => T
; 2009/5/31 22:15:27 yakman_
(let ((s nil)) (maphash #'(lambda (key val) (declare (ignore val)) (setf s (append (list key) s))) *allowed-nicks*) (privmsg "nicks = ~a" s))
; => T
; 2009/5/31 22:15:54 yakman_
(setf "r0b0t1" *allowed-nicks*)
#|
Variable name is not a symbol: "r0b0t1".
|#
; 2009/5/31 22:16:38 yakman_
(setf (gethash "r0b0t1" *allowed-nicks*) t)
; => T
; 2009/5/31 22:16:40 R0b0t1
(setf (gethash "R0b0t1" *allowed-nicks*) t)
; => T
; 2009/5/31 22:16:50 yakman_
(let ((s nil)) (maphash #'(lambda (key val) (declare (ignore val)) (setf s (append (list key) s))) *allowed-nicks*) (privmsg "nicks = ~a" s))
; => T
; 2009/5/31 22:17:24 yakman_
()
; => NIL
; 2009/5/31 22:17:52 R0b0t1
(setf (gethash "Wizzup" *allowed-nicks*) nil)
; => NIL
; 2009/5/31 22:18:26 yakman_
(setf (gethash "Wizzup" *allowed-nicks*) t)
; => T
; 2009/5/31 22:18:34 yakman_
(let ((s nil)) (maphash #'(lambda (key val) (declare (ignore val)) (setf s (append (list key) s))) *allowed-nicks*) (privmsg "nicks = ~a" s))
; => T
; 2009/5/31 22:18:34 Wizzup
(print "test")
; => test
; 2009/5/31 22:18:45 R0b0t1
(setf (gethash "Jason2gs" *allowed-nicks*) t)
; => T
; 2009/5/31 22:19:36 Wizzup
(defun test() (test()))
; => TEST
; 2009/5/31 22:19:41 Wizzup
test()
#|
The variable TEST is unbound.
|#
; 2009/5/31 22:20:49 R0b0t1
(let ((s nil)) (maphash #'(lambda (key val) (declare (ignore val)) (setf s (append (list key) s))) *irc-command-handlers*) (privmsg "funclist = ~a" s))
; => T
; 2009/5/31 22:20:50 Wizzup
(let ((e 1)) *defun closure-1 () e) (setq e 7) (defun closure-2 () e))
#|
undefined variable: *DEFUN
|#
; 2009/5/31 22:20:58 Wizzup
(let ((e 1)) (defun closure-1 () e) (setq e 7) (defun closure-2 () e))
; => CLOSURE-2
; 2009/5/31 22:21:9 Wizzup
CLOSURE-2
#|
The variable CLOSURE-2 is unbound.
|#
; 2009/5/31 22:21:19 Wizzup
(closure-1)
; => 7
; 2009/5/31 22:21:32 Wizzup
(test)
#|
invalid number of arguments: 1
|#
; 2009/5/31 22:21:42 Wizzup
(test())
#|
invalid number of arguments: 1
|#
; 2009/5/31 22:22:1 Wizzup
(test(1))
#|
illegal function call
|#
; 2009/5/31 22:22:5 Wizzup
(test(`1))
#|
illegal function call
|#
; 2009/5/31 22:22:20 yakman_
(test 1)
#|
invalid number of arguments: 1
|#
; 2009/5/31 22:22:25 R0b0t1
(defun test (s) (print s))
#|
redefining TEST in DEFUN
|#
; 2009/5/31 22:23:24 R0b0t1
(test 1)
#|
invalid number of arguments: 1
|#
lisp Code:
; 2009/5/31 21:39:58 yakman_
'(?)
; => (?)
; 2009/5/31 21:40:22 yakman_
(setf (gethash "r0b0t1" *allowed-nicks*) t)
; => T
; 2009/5/31 21:41:0 R0b0t1
(* 2 2)
; => 4
; 2009/5/31 21:41:34 yakman_
(* 1 533 7175)
; => 3824275
; 2009/5/31 21:47:11 R0b0t1
(make-list)
#|
invalid number of arguments: 0
|#
; 2009/5/31 21:48:15 yakman_
'(this is my linked list)
; => (THIS IS MY LINKED LIST)
; 2009/5/31 21:49:14 yakman_
(first '(1 2 3))
; => 1
; 2009/5/31 21:49:20 yakman_
(rest '(1 2 3))
; => (2 3)
; 2009/5/31 21:50:37 yakman_
(maphash)
#|
invalid number of arguments: 0
|#
; 2009/5/31 21:51:12 yakman_
(maphash #'(lambda (key val) (send-line "NOTICE yakman_ :~a" key)) *allowed-nicks*)
#|
The variable VAL is defined but never used.
|#
; 2009/5/31 21:51:41 yakman_
(maphash #'(lambda (key val) (send-line "NOTICE yakman_ :~a ~a" key val)) *allowed-nicks*)
; => NIL
; 2009/5/31 21:52:9 yakman_
(append ? '(* &))
#|
The variable ? is unbound.
|#
; 2009/5/31 21:52:12 R0b0t1
(defvar *watch-list* (list)
#|
end of file on #<SB-IMPL::STRING-INPUT-STREAM {A9EB001}>
|#
; 2009/5/31 21:52:14 R0b0t1
(defvar *watch-list* (list))
; => *WATCH-LIST*
; 2009/5/31 21:52:34 yakman_
(append '? '(* &))
#|
The value ? is not of type LIST.
|#
; 2009/5/31 21:52:40 yakman_
(append '(?) '(* &))
; => (? * &)
; 2009/5/31 21:53:42 R0b0t1
(defvar *test* (list))
; => *TEST*
; 2009/5/31 21:54:6 R0b0t1
(append *test* (cons "foo" 1))
; => (foo . 1)
; 2009/5/31 21:54:26 yakman_
(let ((s nil)) (maphash #'(lambda (key val) (declare (ignore val)) (append (list key) s)) *allowed-nicks*) (privmsg "nicks = ~a" s))
; => T
; 2009/5/31 21:55:21 yakman_
(let ((s nil)) (maphash #'(lambda (key val) (declare (ignore val)) (setf s (append (list key) s))) *allowed-nicks*) (privmsg "nicks = ~a" s))
; => T
; 2009/5/31 21:56:36 yakman_
(let ((s nil)) (maphash #'(lambda (key val) (declare (ignore val)) (setf s (append (list key) s))) *allowed-nicks*) s)
; => (r0b0t1 yakman_ yakman)
; 2009/5/31 21:57:48 yakman_
(remhash "yakman" *allowed-nicks*)
; => T
; 2009/5/31 21:57:54 yakman_
(let ((s nil)) (maphash #'(lambda (key val) (declare (ignore val)) (setf s (append (list key) s))) *allowed-nicks*) s)
; => (r0b0t1 yakman_)
; 2009/5/31 22:1:1 yakman_
(with-irc-source (":nick!user@host" n u h) (privmsg "~a ~a ~a" n u h))
; => T
; 2009/5/31 22:1:39 yakman_
(append "nick" "user" "host")
#|
The value "nick" is not of type LIST.
|#
; 2009/5/31 22:1:58 R0b0t1
(next-token *linetok*)
#|
The variable *LINETOK* is unbound.
|#
; 2009/5/31 22:8:51 R0b0t1
(setf *nick* "Gilgamesh")
; => Gilgamesh
; 2009/5/31 22:9:3 R0b0t1
(irc-bot)
#|
end of file on #<SB-SYS:FD-STREAM for "a socket" {AD95A11}>
|#
lisp Code:
; 2009/5/31 20:54:21 yakman_
(defun fib (n) (if (or (= n 1) (= n 2)) 1 (+ (fib (- n 1)) (fib (- n 2)))))
; => FIB
; 2009/5/31 21:2:2 yakman_
(setf (gethash "kick" *irc-command-handers* #'(lambda (linetok source) (declare (ignore linetok)) (privmsg "p0w right in the kisser!")))
#|
end of file on #<SB-IMPL::STRING-INPUT-STREAM {B111B59}>
|#
; 2009/5/31 21:2:35 yakman_
(setf (gethash "kick" *irc-command-handers*) #'(lambda (linetok source) (declare (ignore linetok)) (privmsg "p0w right in the kisser!")))
#|
The variable SOURCE is defined but never used.
|#
; 2009/5/31 21:2:47 yakman_
(setf (gethash "kick" *irc-command-handers* #'(lambda (linetok source) (declare (ignore linetok) (ignore source)) (privmsg "p0w right in the kisser!")))
#|
end of file on #<SB-IMPL::STRING-INPUT-STREAM {B13E6C9}>
|#
; 2009/5/31 21:3:43 yakman_
(setf (gethash "kick" *irc-command-handers*) #'(lambda (linetok source) (declare (ignore linetok) (ignore source)) (privmsg "p0w right in the kisser!")))
#|
undefined variable: *IRC-COMMAND-HANDERS*
|#
; 2009/5/31 21:4:6 yakman_
(setf (gethash "kick" *irc-command-handlers*) #'(lambda (linetok source) (declare (ignore linetok) (ignore source)) (privmsg "p0w right in the kisser!")))
; => #<FUNCTION (LAMBDA (LINETOK SOURCE)) {B1888DD}>
; 2009/5/31 21:5:47 yakman_
(remhash "kick" *irc-command-handlers*)
; => T
; 2009/5/31 21:6:38 yakman_
(setf (gethash "cheetah" *allowed-nicks*) t)
; => T
; 2009/5/31 21:6:55 Cheetah
(+ 1 1)
; => 2
; 2009/5/31 21:7:16 Cheetah
(cos 5)
; => 0.2836622
; 2009/5/31 21:7:45 Wizzup
(* 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2)
; => 2097152
; 2009/5/31 21:8:4 yakman_
(setf (gethash "r0b0t" *allowed-nicks*) t)
; => T
; 2009/5/31 21:8:7 Wizzup
(/ 2 0)
#|
arithmetic error DIVISION-BY-ZERO signalled
Operation was SB-KERNEL::DIVISION, operands (2 0).
|#
; 2009/5/31 21:8:25 yakman_
(pow 2 3)
#|
undefined function: POW
|#
; 2009/5/31 21:8:31 Cheetah
(/ 0 0)
#|
arithmetic error DIVISION-BY-ZERO signalled
Operation was SB-KERNEL::DIVISION, operands (0 0).
|#
; 2009/5/31 21:8:40 yakman_
(cos pi)
; => -1.0d0
; 2009/5/31 21:8:41 Wizzup
(^ 2 2)
#|
undefined function: ^
|#
; 2009/5/31 21:9:10 yakman_
(setf (gethash "r0b0t1" *allowed-nicks*) t)
; => T
; 2009/5/31 21:9:17 Cheetah
(* 1 533 7175)
; => 3824275
; 2009/5/31 21:9:19 R0b0t1
(^ 2 2)
#|
The function ^ is undefined.
|#
; 2009/5/31 21:9:31 yakman_
(remhash "R0b0t1" *irc-allowed-nicks*)
#|
The variable *IRC-ALLOWED-NICKS* is unbound.
|#
; 2009/5/31 21:9:35 Cheetah
(log 0)
#|
arithmetic error DIVISION-BY-ZERO signalled
|#
; 2009/5/31 21:9:43 yakman_
(remhash "R0b0t1" *iallowed-nicks*)
#|
The variable *IALLOWED-NICKS* is unbound.
|#
; 2009/5/31 21:10:43 yakman_
(remhash "R0b0t1" *allowed-nicks*)
; => T
; 2009/5/31 21:10:54 Cheetah
(tan pi)
; => -1.2246063538223773d-16
; 2009/5/31 21:11:16 Cheetah
(tan (/ pi 2))
; => 1.6331778728383844d16
; 2009/5/31 21:11:18 yakman_
(tan (/ pi 4))
; => 0.9999999999999999d0
; 2009/5/31 21:11:34 yakman_
(sin pi)
; => 1.2246063538223773d-16
; 2009/5/31 21:11:45 yakman_
(sin 90)
; => 0.89399666
; 2009/5/31 21:11:56 Cheetah
(tan 90)
; => -1.9952004
; 2009/5/31 21:12:3 yakman_
(asin 1)
; => 1.5707964
; 2009/5/31 21:12:30 yakman_
(asin 0)
; => 0.0
; 2009/5/31 21:12:39 Cheetah
asin 0
#|
The variable ASIN is unbound.
|#
; 2009/5/31 21:12:46 Cheetah
(asin 0)
; => 0.0
; 2009/5/31 21:13:22 yakman_
(setf *watch-list* (make-hash-table))
#|
undefined variable: *WATCH-LIST*
|#
; 2009/5/31 21:13:28 Wizzup
(setf (gethash "Raym0nd`" *allowed nicks*) t)
#|
The variable #:G740 is defined but never used.
|#
; 2009/5/31 21:15:20 yakman_
'(am i still allowed?)
; => (AM I STILL ALLOWED?)
; 2009/5/31 21:16:49 yakman_
(maphash #'(lambda (key val) (send-line "NOTICE yakman :~a = ~a" key val)) *allowed-nicks*)
; => NIL
; 2009/5/31 21:17:2 yakman_
(maphash #'(lambda (key val) (send-line "NOTICE yakman_ :~a = ~a" key val)) *allowed-nicks*)
; => NIL
; 2009/5/31 21:17:36 Wizzup
(setf (gethash "R0b0t1" *allowed nicks*) t)
#|
The variable #:G744 is defined but never used.
|#
; 2009/5/31 21:17:55 yakman_
(setf (gethash "r0b0t1" *allowed nicks*) t)
#|
The variable #:G748 is defined but never used.
|#
; 2009/5/31 21:18:12 yakman_
(setf (gethash "R0b0t1" *allowed-nicks*) t)
; => T
; 2009/5/31 21:18:47 R0b0t1
(defvar *watch-list* (make-hash-table))
; => *WATCH-LIST*
; 2009/5/31 21:18:50 yakman_
(remhash "r0b0t" *allowed-nicks*)
; => T