Results 1 to 2 of 2

Thread: Lamech eval logs

  1. #1
    Join Date
    Aug 2006
    Location
    London
    Posts
    2,021
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default Lamech eval logs

    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
    Join the Official SRL IRC channel. Learn how to Here.

  2. #2
    Join Date
    Mar 2008
    Location
    The Netherlands
    Posts
    1,395
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Sure. Great. Now what do we do with them?

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •