OOP implementation in Lisp

So I use CL and I want Python-style OOP: how do I precompile hashtable with methods?

Ask here

http://dis.4chan.org/prog/

or here

http://boards.4chan.org/g/

>>2
too mainstream.

>>3
mainstream is sometimes a good thing

>>4
you're totalitarian.

>>5
Breathing is so conformist, why not stop breathing now?

>>6
sarcastic exaggeration
shalom, hymie!

>>7
Is there anything in your book that ain't Jewish?

>>7
nigger

>>8
actually sarcastic exaggeration is a stereotypical jewish mannerism, but it's been used everywhere, shakespeare used metaphors and shit

I don't know

>>10
still, sarcasm is logically unsound and just a poor man's rhetoric.

>>11
Sarcasm is intended to be logically unsound.  That's the whole point.

>>12
You are wrong. Sarcasm is a straw man, which tries to look like a reductio ad absurdum.

Antisemite: Jews are criminals and deserve death, because of A and B.
Jew: Yeah! Lets go further and kill all minorities!

So a Jew makes a fallacy, by equating other minorities to the Jews, while in fact the Jews are very special minority.

This sarcasm could be easily countered by asking "why other minorities deserve death."

which tries to look like a reductio ad absurdum
intended to be logically unsound
These two ideas are not mutually exclusive.

Also, your example is not of sarcasm (especially not if your interpretation of the Jewish is to be believed) but a twisted blend of applied psychology that only works in your head.  No, in fact, even if it were an accurate depiction of an actual discussion, that would still not be sarcastic.  The delivery is all wrong and it presumes the roles of the individuals; even if I granted you that sarcasm is a Jewish invention, it is not confined to Jewish practice, and there are no bounds to its adoption and expression.

This sarcasm could be easily countered by asking "why other minorities deserve death."
I am certain all I would need to do is find the correct person and they could go on for hours about why any given individuals deserved death.  You are proof enough that they exist.  I just need the denomination in question and the group that hates that denomination, either of which can easily be determined by selecting the other.

>>14
These two ideas are not mutually exclusive.
so?

Also, your example is not of sarcasm
It is. Cowardly Jews love to hide behind innocent minorities.

it is not confined to Jewish practice, and there are no bounds to its adoption and expression.
If it behaves like a Jew, then it is a Jew. Sorry.

I am certain all I would need to do is find the correct person and they could go on for hours about why any given individuals deserved death.
So why Native Americans and Filipinos deserved death? Commie Jews also killed enough Slavs: do Slavs deserved death?

Cowardly Jews love to hide behind innocent minorities.
If your argument held water, that would be irony, not sarcasm.

So why Native Americans and Filipinos deserved death? Commie Jews also killed enough Slavs: do Slavs deserved death?
Sorry, I am not the "correct person" you are looking for.  I don't hate anyone by nationality or ethnicity.

>>16
Shalom!

>>11
Not necessarily, it depends how it is used. For instance you can disprove a theory by finding a fact which runs contrary to it.

OP complained that going to /g/ and /prog/ was mainstream so I showed him an example of where doing something mainstream isn't wrong, breathing.

The example you provided is different

Antisemite: Jews are criminals and deserve death, because of A and B.
Jew: Yeah! Lets go further and kill all minorities!

In this example the jew is misinterpreting the anti-semite's argument then attacking this misinterpretation. It's a strawman logical fallacy. The anti-semite said nothing of exterminating all minorities, just the jews.

>>18
The example you provided is different
Nope. It's the same: Jew gave example of where killing minorities is wrong. But that doesn't mean killing Jews is wrong.

>>19
For example, being Russian, I'm a minority in the shadow of China, but that doesn't mean I should be killed, because I don't carry criminal mafia ideology, like Jews do. Still many Russian Christians deserve death, because Christianity is a sect of Judaism and there is a struggle because of the ugly christian faith.

>>19
>>20
OP didn't have a better chance at getting answers for programming here, this is a forum entitled "politics".

If the jew attacked your argument he could not succeed, so he must misinterpret your argument first, then attack the misinterpretation. See?

>>21
If the jew attacked your argument he could not succeed, so he must misinterpret your argument first, then attack the misinterpretation. See?
Yes. That is why I fail to conceive, why Jews, being high-IQ creatures, use such lowly and easy to counter rhetoric.

OP didn't have a better chance at getting answers for programming here, this is a forum entitled "politics".
Programming has it's politics. That is why government purchases MS Windows over GNU Linux.

That is why I fail to conceive, why Jews, being high-IQ creatures, use such lowly and easy to counter rhetoric.
To give you a fair chance, I imagine.

>>22
Governments purchase Windows operating systems because linux is not a serious enterprise solution. It has its place filling specialized roles supporting a Windows network (I find having clonezilla on a USB stick quite useful, even if it is vastly inferior to large scale imaging using WDS and MDT) but a linux distro for end user computers? Oh fucking hell, no. The average user does not have nearly enough neckbeard.

tl;dr It has nothing to do with politics, just practicality.

Both Lisp and Python have Jewish authors. We must band everything Jewish, including the Jews themselves. Boycott the kikes!

>>23
I doubt Jews have many chances to give anyone. If Jews lose, they wont just lose their trillions, they will lose their lives.

>>22
Intentionally dumbing down your arguments sounds like brinksmanship, they're testing to see how much of a threat you are.

Anyway, OP asked a technical question, it did not concern the politics of programming.

>>25
but then all we're left with is Ruby and Scala

>>28
Dear god.

>>29
God is Jewish and should be banned.

>>28
How about C++?

>>30
Banned is stupid and should be banned.

Are you stupid or banned?

>>31
banned it seems

You got your /prog/ in my /newpol/!

http://dis.4chan.org/read/prog/1351522653
You got your /newpol/ in my /prog/!


(defun list->table (&rest key-value-pairs)
  (let ((table (make-hash-table)))
    (loop for pair in key-value-pairs
          do (let ((key (car pair))
                   (value (cadr pair)))
               (when (not (gethash key table))
                     (setf (gethash key table) value))))
    table))

(defmacro class-def (&rest key-value-pairs)
  `(list->table ,@(map 'list (lambda (pair)
                               `(list (quote ,(car pair))
                                      (lambda ,(cons 'self (cadr pair))
                                        ,@(cddr pair))))
                             key-value-pairs)))

(defun union-tables (&rest tables)
  (let ((union-table (make-hash-table)))
    (loop for table in tables
          do (loop for key being the hash-keys of table
                   using (hash-value value)
                   do (when (not (gethash key union-table))
                            (setf (gethash key union-table) value))))
    union-table))

(defun make-class (&rest parent-classes)
  (apply #'union-tables parent-classes))

(defun make-object (class-binding &rest init-args)
  (let ((instance-data (make-hash-table)))
    (apply (gethash 'init class-binding) (cons instance-data init-args))
    (lambda (method-name &rest arguments)
      (apply (gethash method-name class-binding) (cons instance-data arguments)))))

(defvar cat-class (make-class (class-def
  (init (age) (setf (gethash 'age self) age))
  (speak () (print "meow"))
  (attack () (print "swipe scratch swipe!"))
)))

(defvar dog-class (make-class (class-def
  (init (age) (setf (gethash 'age self) age))
  (speak () (print "woof"))
  (attack () (print "bite thrash bite!"))
)))

(defvar gordy (make-object cat-class 5))
(defvar george (make-object dog-class 7))
(funcall gordy 'speak)
(funcall george 'speak)
(funcall gordy 'attack)
(funcall george 'attack)