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))

(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>

-> A wonderful race car whose color is RED.
```

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

```(I_buy_a_Ferrari ‘price)
-> 20000

-> 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))

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

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

;#<FERRARI INSTANCE \$540233AA>

;A wonderful race car whose color is RED.
;But when you drive at 200 miles... Whoo !!!!

;20000

;RED
```

Community Search:
MacTech Search:

Macs Fan Control 1.5.14 - Monitor and co...
Macs Fan Control allows you to monitor and control almost any aspect of your computer's fans, with support for controlling fan speed, temperature sensors pane, menu-bar icon, and autostart with... Read more
VueScan 9.7.96 - Scanner software with a...
VueScan is a scanning program that works with most high-quality flatbed and film scanners to produce scans that have excellent color fidelity and color balance. VueScan is easy to use, and has... Read more
FileMaker Pro 19.6.1 - Quickly build cus...
FileMaker Pro is the tool you use to create a custom app. You also use FileMaker Pro to access your app on a computer. Start by importing data from a spreadsheet or using a built-in Starter app to... Read more
Duet is the first app that allows you to use your iDevice as an extra display for your Mac using the Lightning or 30-pin cable. Note: This app requires a iOS companion app. Release notes were... Read more
Firefox 107.0.1 - Fast, safe Web browser...
Firefox offers a fast, safe Web browsing experience. Browse quickly, securely, and effortlessly. With its industry-leading features, Firefox is the choice of Web development professionals and casual... Read more
War Thunder 2.21.1.91 - Multiplayer war...
In War Thunder, aircraft, attack helicopters, ground forces and naval ships collaborate in realistic competitive battles. You can choose from over 1,500 vehicles and an extensive variety of combat... Read more
With Apple Numbers, sophisticated spreadsheets are just the start. The whole sheet is your canvas. Just add dramatic interactive charts, tables, and images that paint a revealing picture of your data... Read more
DEVONthink Pro 3.8.7 - Knowledge base, i...
DEVONthink is DEVONtechnologies' document and information management solution. It supports a large variety of file formats and stores them in a database enhanced by artificial intelligence (AI). Many... Read more
Drive Genius 6.2.3 - \$79.00
Drive Genius features a comprehensive Malware Scan. Automate your malware protection. Protect your investment from any threat. The Malware Scan is part of the automated DrivePulse utility. DrivePulse... Read more
VLC Media Player 3.0.18 - Popular multim...
VLC Media Player is a highly portable multimedia player for various audio and video formats (MPEG-1, MPEG-2, MPEG-4, DivX, MP3, OGG, ...) as well as DVDs, VCDs, and various streaming protocols. It... Read more

## Latest Forum Discussions

TouchArcade Game of the Week: ‘Sling Min...
The world of PC games has always blown my mind because there’s just SO MUCH stuff out there that it’s not uncommon at all for there to be a game that’s well-liked and well-reviewed, and seemingly quite popular with a solid fanbase, and have it be... | Read more »
Hello gentle readers, and welcome to the SwitchArcade Round-Up for December 2nd, 2022. So, today turned out a little quieter than the usual Friday. It was so quiet, in fact, that I decided to pen a few reviews. The Knight Witch, Railbound, and Donut... | Read more »
Blue Archive reveals its latest event st...
Nexon has announced the new update for Blue Archive, under the name of An Unconcealed Heart. Featuring a battle between two academies, the story will follow a group struggling to gain recognition, and will bring three new students to recruit. [... | Read more »
Following the major update for Dead Cells on iOS and Android a few days ago, Playdigious has brought Dead Cells+ () to Apple Arcade. As an App Store Great, Dead Cells+ includes all prior paid DLC and content updates. It also has exclusive mobile... | Read more »
Hello gentle readers, and welcome to the SwitchArcade Round-Up for December 1st, 2022. Wow, December. We’re already at the last month of the year? Phew. I have a lot of work to finish in the next few weeks. As for today, we’ve got a little news, a... | Read more »
One of our favorite puzzlers released this year is Railbound from Afterburn Games, which hit in early September and earned our Game of the Week recognition for being an absolutely ace logic puzzler. The goal is to place rail pieces down in order to... | Read more »
The Seven Deadly Sins: Grand Cross celeb...
Netmarble Corporation has pulled out all the stops to celebrate the 3 and a half year anniversary of The Seven Deadly Sins: Grand Cross. The Grand Cross 3.5th Year Anniversary the Ultimate One, a rather wordy title, brings with it a brand new... | Read more »
‘Skullgirls Mobile’ Major Update 5.2 Out...
Developer Hidden Variable pushed out a major update for Skullgirls Mobile (Free) a few hours ago. The version 5.2 update brings in Black Dahlia (before the console and PC game), Retakes, XP Treats, free gifts, and more. Since launch, Skullgirls... | Read more »
Out Now: ‘Disgaea 4’, ‘Romancing SaGa: M...
Each and every day new mobile games are hitting the App Store, and so each week we put together a big old list of all the best new releases of the past seven days. Back in the day the App Store would showcase the same games for a week, and then... | Read more »
Hello gentle readers, and welcome to the SwitchArcade Round-Up for November 30th, 2022. We’re finishing up the month on a quiet note, friends. There are five new releases to look at today, with a few notables amongst them. We’ve got summaries for... | Read more »

## Price Scanner via MacPrices.net

New Holiday Sale: Apple retailers are offerin...
Several Apple retailers lowered prices on 10.9″ iPad Airs overnight to lows of \$100 off MSRP starting at \$499. Their prices are the lowest available for iPad Airs anywhere this Holiday season right... Read more
New Holiday sale at Amazon: Take \$50 off Appl...
Amazon has Apple’s new 10th-generation iPads in stock and on sale, for the first time, for \$50 off MSRP starting at only \$399. Their discount applies to all models and all colors. With the discount,... Read more
Holiday Sale: Get an 8.3″ Apple iPad mini for...
Sams Club has 10.9″ 64GB iPad minis on Holiday sale for \$80-\$100 off MSRP through December 7, 2022. With their discount, prices start at \$399 — the cheapest price for a new iPad mini from any of the... Read more
Sams Club Holiday December Event sale: Apple...
Apple AirPods Max headphones are on sale at Sams Club for \$110 off MSRP (\$439) as part of their December Event sale, ending on December 7, 2022, valid for all colors. Sale price for online orders... Read more
Apple’s 10.2″ 64GB 9th-generation iPads are o...
Sams Club has 9th-generation 64GB iPads on Holiday sale for \$60 off MSRP through December 7, 2022. With their discount, prices start at \$259 — the cheapest price for a new iPad from any of the Apple... Read more
11″ 128GB WiFi M2 iPad Pro on sale for \$749,...
B&H Photo has the new 11″ 128GB WiFi M2-powered iPad Pro (in Space Gray or Silver) on Holiday sale for \$749 including free 1-2 day shipping to most US addresses. Their price is \$50 off MSRP and... Read more
Find the best Holiday sale price on an iPad u...
Apple retailers are offering \$100-\$150 Holida...
Apple retailers have posted their most-recent Holiday sale prices on 13″ MacBook Airs. Take up to \$150 off MSRP on M2-powered Airs with these sales with prices starting at only \$1099. Free shipping... Read more
Holiday Sale: Apple’s 14″ MacBook Pros with M...
B&H Photo is offering \$200-\$300 discounts on Apple’s 14″ MacBook Pros with M1 Pro CPUs as part of their Holiday 2022 sale, with prices starting at \$1799. Free 1-2 day shipping is available to... Read more
Deal Alert! 50% off Apple MagSafe Chargers
AT&T has Apple MagSafe Chargers on sale for 50% off MSRP as part of their Holiday sale. Service is not required to take advantage of these savings. With the discounts, their sale prices are the... Read more

## Jobs Board

Support Technician II - *Apple* Support - O...
…problems and acting as a liaison between customers and resolving groups. As an Apple Technical Specialist, you will be supporting many of our popular Apple Read more
*Apple* Electronic Repair Technician - PlanI...
…a highly motivated individual to join our Production Department as an Apple Electronic Repair Technician. The computer repair technician will diagnose, assemble, Read more
Lead Developer - *Apple* tvOS - Rumble (Uni...
…earnings, and positive sentiment About the role: We are looking for a Lead Apple tvOS Developer to join our application engineering team to expand our video centric Read more
Tier 1 Endpoint Engineer - *Apple* - Red Ri...
…Desk on site, at our Client's location, with a focus on support to Apple products. This position will handle technical support requests directly from customers and Read more
Product Manager II - *Apple* - DISH (United...
…you will be doing We seek an ambitious, data-driven thinker to assist the Apple Product Development team as our new Retail Wireless division continues to grow and Read more