TweetFollow Us on Twitter

Lisp Objects
Volume Number:4
Issue Number:4
Column Tag:Learning Lisp

Lisp Objects: Ford vs Chevy

By Didier Guillon, Grenoble, France

Didier Guillon is a former restaurant manager, currently in the fourth year of a Computer Science program at Grenoble University in France. He is a member of AAAI and works in artificial intelligence as a consultant at the Medical University of Grenoble’s department of BioStatistics. He is also president of Mac Alpes, a club of Macintosh developers in Grenoble and has been using the Mac for two years.

Welcome to this new column. When I first started Macintosh programming, MacTutor and the contributing editors were there and helped me since issue number one. Now I think it’s time to share with you the knowledge I gained with the “oldest new language”. So welcome to symbolic computation... you have a problem? No, don’t be frightened, I have been so pleased when I discovered ABC’ s of C that I wanted to introduce you to the Lisp world in a gentle way. The technique I will use may sometimes be criticized by expert Lisp programmers...but do they remember their first steps?

Today I will present the object idea with a very dumb example and “how to” on the Macintosh. MacApp and MPW Pascal are there to let us remember that object programming becomes a reality day after day. But, since Smalltalk, no other language than Common Lisp did it with better efficiency.

My Kingdom for an Object

But what is an object ? To the outside world, an object is an entity. But for us programmers, an object is some private memory with a set of operations. An object can be a number, a square, a text editor. An object which is a square knows a lot of information about itself: how to calculate the area of the square, the center of the square... When we want the object ‘square’ to carry out such a calculation, we send him a message (we say: to invoke). But we just tell him which operation we want, not how to operate. (If he’s smart, he already knows that!)

When a set of objects represents the same kind of information, we implement a class with a data structure and the procedures that operate on this data structure. For example, a class implemented for a rectangle would know how a specific object, called an instance, would carry out the operation rectangular area. This instance has private variables called instance variables and the function that will operate on the instance of a particular class is call a method. We just defined in fact the fundamental concepts of object programming: data abstraction, information hiding (not to tell “how to”) and generic operation. But all this is just theory, so let’s start with our dumb example. We will use the ExperCommonLisp (ECL) from ExperTelligence™, who since the last review of this language in MacTutor, did a lot of improvement and removed many bugs.

First, let’s create a class for ‘cars’ (note: we wrote cars to avoid the “car” word which is a Lisp reserved word).

(defclass (cars object)
  (IVS (color ‘blue)
       (price 0)))

Defclass contains a list with the name of the call and the name of the superclass. In ECL all the classes come from a special class called object. In fact object is a root class from which all classes are derived. The IVS stands for instance variable and as we saw previously, will manage to store the IVS in each instance. You note the quote before blue? In Lisp every elementary object, called an atom, is evaluated. This evaluation returns a function name or the value attached to this specific atom. So, to prevent evaluation, we “quote” the atom which becomes itself a value and is attached to the instance variable color. This ‘quoting’ is not necessary for a numeric value. Then we define the method (using defmethod followed by the name of the class and the name of the method itself):

(defmethod (cars small) ()
 (setq price 800)
 (format T “A small car is just fun for ~a  dollars.~%” price))

This method is doing two things: setting price to 800 with setq, a Lisp word which will not evaluate the following word, price, and sets its value to 800 (for Pascal programmers it’s an assignment). Then it prints a message (good old Fortran world !!!). You are now able to trace by yourself what the second method does:

(defmethod (cars race) ()
 (setq color ‘red)
 (setq price 20000)
 (format T “A wonderful race car whose color is ~a.~%” color))

Now we link up what we define to this first class: we compile and define an instance (we will represent the return value by ->):

(setq my1car (cars ‘new))
-> #<CARS INSTANCE $5402341A>

“my1car” is the instance which holds a copy of the class ‘cars’. Let’s invoke the instance in various ways :

(my1car ‘race)
-> A wonderful race car whose color is RED.

(my1car ‘small)
-> A small car is just fun for 800 dollars.

(my1car ‘price)
-> 800

(my1car ‘price 200)
-> 200

(my1car ‘price)
-> 200

We can see the graphic image of the object we define, including the next subclass we will create:

Here is the subclass Ferrari:

(defclass (Ferrari cars)
 (IVS a_speed))

(defmethod (cars buy_a_Ferrari) ()
 (setq a_speed 200)
 (self ‘race)
 (format T “But when you drive at ~a miles... Whoo !!!!~%”    a_speed 
) )

Same as the ‘cars’ object, but note the “self” word which is used to invoke the method race from the method buy_a_Ferrari. As previously, we can say:

(setq I_buy_a_Ferrari (Ferrari ‘new))
-> #<FERRARI INSTANCE $540233AA>

(I_buy_a_Ferrari ‘buy_a_Ferrari)
-> A wonderful race car whose color is RED.

But when you drive at 200 miles... Whoo !!!!

(I_buy_a_Ferrari ‘price)
-> 20000

(I_buy_a_Ferrari ‘color)
-> RED

We can see easily that I_buy_a_Ferrari inherits from its superclass ‘cars’ all the methods and instance variables. We will not cover here some other concepts like class variables, super....

So now that we have an idea on how objects live, we’ll have a look at ECL. In ECL, the object idea has been expanded to the Macintosh Toolbox.

Before going on to the Macintosh toolbox, we have a look at another object expression, metamethod. A metamethod is a procedure which is invoked by sending an appropriate message to a class. We explain metamethod because on the Macintosh we create a NEW metamethod which sets up the required data structure. When invoking a specific metamethod, the instance of a particular class will have instance variables which will correlate (and with the same name) to the equivalent fields in the Pascal data structure. An example from QuickDraw:

(setq yourRect (Rect ‘new 30 40 250 280))

We just created the instance call ‘yourRect’ with a set of parameters. If we send it a message, we can access these instance accessors by the same name as in the Pascal structure : top, left, bottom, right.

(yourRect ‘bottom)
-> 250

or change their value :

(yourRect ‘left 60)
-> 60

We can also draw, calling Toolbox procedures with the instance ‘yourRect’ :

(!PaintRect yourRect)

Note that trap names are prefixed by an exclamation mark. We are now ready to start programming our first minimum shell in ECL... but that’s for next month.

For those interested in following me, and starting Lisp, I recommend the very nice and easy book of Touretzky “A Gentle Introduction to Symbolic Computation”. For the others, obviously, Lisp 2e by Winston is a must. I intend to present the next coming months various aspects of Lisp programming in Artificial Intelligence, but also use some special languages as OPS 5, SmallTalk, Humble, Prolog (or why not Nexpert, just to let us dream...). If you have any suggestions, please contact me :

Didier Guillon

8 Impasse Saint Jean

38240 Meylan

France.

The complete program :

(defclass (cars object)
 (IVS (color ‘blue)
         (price 0)))

(defmethod (cars small) ()
 (setq price 800)
 (format T “A small car is just fun for ~a  dollars.~%” price))


(defmethod (cars race) ()
 (setq color ‘red)
 (setq price 20000)
 (format T “A wonderful race car whose color  is ~a.~%” color))

;**********Examples*****************

;(setq my1car (cars ‘new))
;#<CARS INSTANCE $5402341A>
;(my1car ‘race)
;A wonderful race car whose color is RED.
;(my1car ‘small)
;A small car is just fun for 800 dollars.
;(my1car ‘price)
;800
;(my1car ‘price 200)
;200
;(my1car ‘price)
;200

;**********Second class**************

(defclass (Ferrari cars)
  (IVS a_speed))

(defmethod (Ferrari buy_a_Ferrari) ()
   (setq a_speed 200)
   (self ‘race)
 (format T “But when you drive at ~a miles ...  Whoo !!!!~%”         
                              a_speed))

;***********Example****************

;(setq I_buy_a_Ferrari (Ferrari ‘new))
;#<FERRARI INSTANCE $540233AA>

;(I_buy_a_Ferrari ‘buy_a_Ferrari)
;A wonderful race car whose color is RED.
;But when you drive at 200 miles... Whoo !!!!

;(I_buy_a_Ferrari ‘price)
;20000

;(I_buy_a_Ferrari ‘color)
;RED
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Latest Forum Discussions

See All

Top Mobile Game Discounts
Every day, we pick out a curated list of the best mobile discounts on the App Store and post them here. This list won't be comprehensive, but it every game on it is recommended. Feel free to check out the coverage we did on them in the links... | Read more »
Blue Archive heads for nature in New Yea...
Continuing the Blue Archive trend of releasing seasonal events to the Western version of the game nowhere near when they actually happened, the Cyber New Year March update has arrived. It brings with it a story centring around New Year, which it... | Read more »
Once Human conquers maths to be one hotl...
It feels like Once Human has been in development for about ten years at this point, but that has clearly not blunted the excitement for NetEases’ upcoming open-world survival game. As a matter of fact, it seems things have never been better, as... | Read more »
Watcher of Realms celebrates its first a...
It has been one year since Moonton Games kicked off the fantasy RPG Watcher of Realms, and there are a lot of celebrations to mark the occasion. You could take part in a brand-new mode, earn some skins, and recruit some of the strongest characters... | Read more »
Tarisland finally launches and celebrate...
It has felt like a lifetime, as it always does when it comes to waiting, but now Level Infinites’ anticipated MMORPG Tarisland is available across mobiles and Windows. It is time to pick your favourite of the nine classes, customise them to your... | Read more »
Reverse: 1999 offer Reality teams a mout...
Bluepoch Games has confirmed that Phase 2 of Reverse:1999s Version 1.6 has launched, and brings with it a lot to get your teeth into. Along with some sign-in rewards and a bunch of stories to enjoy, as well as a new 6-star character who just might... | Read more »
Uncharted Waters Origin unveils its late...
LINE Games, Motif, and KOEI Tecmo have announced the latest raft of updates for their seafaring adventure title Uncharted Waters Origin, and if you've played for a while you know what to expect. A new Admiral, new mates, and some new story, the... | Read more »
Wrecking Golf is a casual physics-based...
In case you missed it, Dusan Popovic has officially launched Wrecking Golf on iOS and Android, the indie developer's casual golf game on mobile presented with charming pixel-art visuals. Featuring physics-based mechanics and simple controls, the... | Read more »
Blue Archive is striking out to Anime Ex...
At this point in my writing career, I have seen quite a few press releases come about, and it feels like one of the most frequently updated games there is Blue Archive. It is, of course, great to see a game have a life like this, and now Nexon is... | Read more »
Grab a Grammy-inspired Backbone One with...
There are so many mobile controllers on the market that it could be a little difficult to know which to go for. If you are someone who goes for a good old celebrity endorsement, however, then the new Backbone One might be for you, created as it... | Read more »

Price Scanner via MacPrices.net

Walmart continues to sell clearance 13-inch M...
Walmart continues to offer clearance, but new, Apple 13″ M1 MacBook Airs (8GB RAM, 256GB SSD) online for $699, $300 off original MSRP, in Space Gray, Silver, and Gold colors. These are new MacBooks... Read more
Apple is offering steep discounts, up to $600...
Apple has standard-configuration 16″ M3 Max MacBook Pros available, Certified Refurbished, starting at $2969 and ranging up to $600 off MSRP. Each model features a new outer case, shipping is free,... Read more
Save up to $480 with these 14-inch M3 Pro/M3...
Apple has 14″ M3 Pro and M3 Max MacBook Pros in stock today and available, Certified Refurbished, starting at $1699 and ranging up to $480 off MSRP. Each model features a new outer case, shipping is... Read more
Amazon has clearance 9th-generation WiFi iPad...
Amazon has Apple’s 9th generation 10.2″ WiFi iPads on sale for $80-$100 off MSRP, starting only $249. Their prices are the lowest available for new iPads anywhere: – 10″ 64GB WiFi iPad (Space Gray or... Read more
Apple is offering a $50 discount on 2nd-gener...
Apple has Certified Refurbished White and Midnight HomePods available for $249, Certified Refurbished. That’s $50 off MSRP and the lowest price currently available for a full-size Apple HomePod today... Read more
The latest MacBook Pro sale at Amazon: 16-inc...
Amazon is offering instant discounts on 16″ M3 Pro and 16″ M3 Max MacBook Pros ranging up to $400 off MSRP as part of their early July 4th sale. Shipping is free. These are the lowest prices... Read more
14-inch M3 Pro MacBook Pros with 36GB of RAM...
B&H Photo has 14″ M3 Pro MacBook Pros with 36GB of RAM and 512GB or 1TB SSDs in stock today and on sale for $200 off Apple’s MSRP, each including free 1-2 day shipping: – 14″ M3 Pro MacBook Pro (... Read more
14-inch M3 MacBook Pros with 16GB of RAM on s...
B&H Photo has 14″ M3 MacBook Pros with 16GB of RAM and 512GB or 1TB SSDs in stock today and on sale for $150-$200 off Apple’s MSRP, each including free 1-2 day shipping: – 14″ M3 MacBook Pro (... Read more
Amazon is offering $170-$200 discounts on new...
Amazon is offering a $170-$200 discount on every configuration and color of Apple’s M3-powered 15″ MacBook Airs. Prices start at $1129 for models with 8GB of RAM and 256GB of storage: – 15″ M3... Read more
Amazon is offering a $200 discount on 14″ M3...
Amazon has 14-inch M3 MacBook Pros in stock and on sale for $150-$200 off MSRP. Shipping is free. Note that Amazon’s stock tends to come and go, so be sure to check their site often if the model you... Read more

Jobs Board

Solutions Engineer - *Apple* - SHI (United...
**Job Summary** An Apple Solution Engineer's primary role is tosupport SHI customers in their efforts to select, deploy, and manage Apple operating systems and Read more
*Apple* / Mac Administrator - JAMF Pro - Ame...
Amentum is seeking an ** Apple / Mac Administrator - JAMF Pro** to provide support with the Apple Ecosystem to include hardware and software to join our team and Read more
Operations Associate - *Apple* Blossom Mall...
Operations Associate - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Read more
Cashier - *Apple* Blossom Mall - JCPenney (...
Cashier - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Blossom Mall Read more
Omnichannel Associate - *Apple* Blossom Mal...
Omnichannel Associate - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.