blogs/cmm

From: Rahul Jain 
Subject: Symbols, the Universe, and Robert Paulson or, Redefined Meanings of Symbolic Expression and their Interpretation by a Programmer
Newsgroups: comp.lang.lisp
Organization: Rice University, Houston TX

“His name is Robert Paulson.''

If you are unfamiliar with that statement, please watch the movie
Fight Club. It's a great movie that everyone should watch anyway, and
it would be a waste to try to describe what that statement means
outside of the context of the movie.

Here is a rendition of what is happening in the movie into Lisp code:

(defpackage :real-world
  (:export #:person #:person-name #:person-live-p))

(defpackage :project-mayhem)

(in-package :real-world)

(cl:defclass person ()
  (live-p :initform t
          :accessor person-live-p)
  (name :initarg :name
        :accessor person-name))

(cl:defvar robert-paulson (cl:make-instance 'person “Robert Paulson”))

(cl:assert (cl:string= (person-name robert-paulson) “Robert Paulson”))

(cl:in-package :project-mayhem)

(cl:defclass person ()
  ())

(in-package :real-world)

(cl:assert (cl:string= (person-name robert-paulson) “Robert Paulson”))

(cl:in-package :project-mayhem)

(cl:import '(real-world:person-name real-world:person-live-p))

(cl:defclass person ()
  (live-p :initform t
          :reader person-live-p))

(cl:defclass dead-person (person)
  (live-p :initform nil
          :allocation :class
          :reader person-live-p)
  (name :initform “Robert Paulson”
        :allocation :class
        :reader person-name))

(cl:defvar robert-paulson)

(cl:defmethod (cl:setf person-live-p) ((value null) (person person))
  (cl:let ((robert-paulson person))
    (cl:change-class person 'dead-person)
    (cl:assert (cl:string= (person-name robert-paulson)
                           “Robert Paulson”))))

почитал вот у 'ы про то, как надо писать исторические труды. призадумался.

я ведь тоже скептик, да. но при этом ленивый. говорю “не верю”, меняю отношение на несерьёзное (проверять-то лень!), в результате просто ничего в башке не остаётся. да и вообще я историю не очень-то люблю, ибо ко всему ещё и нелюбопытен. жопа? конечно, жопа.

---

а ещё уже который день подряд обнаруживаю на руках и ногах явно кошачьи царапины, свежие. а откуда они — убейте, не помню. может, Алиска меня будить так пытается, а я не реагирую? и вроде ведь чутко сплю. и тут жопа.

ну ничего, я вот ей сегодня утром нечаянно переднюю левую лапу отдавил.

---

на работе сижу по уши в проекте, “проданном” мне под девизом “да фигня, оно классно работает, по сути там только мелкие баги латать надо”. так вот, там ещё месяца полтора работы, дабы довести эту гадость до ума. повёлся как маленький, однако. гадость страшная, и заниматься ею не хочется совсем. везде жопа.

- а это клуб политической песни, вот что сынок.

- спасибо мам. кажется, израильские клубящиеся самодельные певцы нашли свою нишу, да мама?

- да, сынок.

- так роди же меня блин обратно, мама.

[ никого обидеть не хочу. испытываю ужас, да, а обидеть вот совсем не хочу, правда. ]

милые дамы! you are welcome!

а вот здесь очень круто, спасибо сугубо разнополым и .