TweetFollow Us on Twitter

MCL3 Review
Volume Number:11
Issue Number:9
Column Tag:Object-Oriented Languages

Macintosh Common Lisp 3.0

An Old Language is New Again!

By Rich Parker, Modesto, CA

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

MCL: The Rumor and The Truth

For a while last year we all thought that Macintosh Common Lisp (MCL) was going to be abandoned. Apple had decided not to continue development of the product and there was no suitable replacement in sight, particularly for the new PowerMac computers. But Apple finally decided to sell the product to Digitool, Inc. Digitool started right off by commencing the development of two new versions of the product; the first is the new 68K version 3.0 (which, unlike the previous version 2.0.1 runs just fine on the PowerMac with the Modern Memory Manager enabled). Digitool is also working on a PowerMac native version of the product, which they say will be released later this year.

Creating the PowerMac version is a fairly major undertaking, mainly because MCL contains an incremental compiler that generates native 68K code. MCL also relies on the memory management facilities of the 68K family, and supports 68K-style floating-point computations. All of this will have to change for a native PPC version. But Digitool promises that the upcoming PowerMac product will be very efficient and fully compatible with even the latest PowerMac machines.

The truth is that MCL 3.0 is extremely efficient right now, even though it’s running under emulation mode on my PowerMac 6100. It no longer crashes when I have the Modern Memory Manager turned on, and it’s happy to execute with VM turned on as well.

So What Good Is Lisp?

I see many messages from developers who surf the various online networks and it seems that many of these messages are devoted to discussions of the various problems with the C++ language. In fact, many have expressed that C++ is an “abominable” language, full of pitfalls and traps.

But Lisp is not without its own detractors (those who bemoan its copious use of parenthesis), but the fact is that few ever complain about limitations of the language. In fact, Lisp (ANSI Common Lisp, that is) is so full-featured and straightforward that the main body of complaints are focused on the breadth of the language, rather than its limitations - it’s such a large language that learning all of its features is almost impossible. Although the language is said to be quite large, it’s not because of its syntax; that part is simple. The difficulty lies in learning the hundreds of standard functions, macros, and special forms that are documented in the Common Lisp standard.

Once you spend some time with Lisp (and especially MCL), you’ll begin to see the tremendous potential of the language. MCL appears to be interpretive, but it is actually compiling each statement you type into native code (68K code, presently) as it is entered. If a particular set of statements is executed a second time, it is not recompiled, but is executed directly. You can compile individual files of source text and store these into fasl files, which load and execute very efficiently.

You can build an application piece by piece, testing as you go, without having to go through the edit, compile, link, execute cycle that is standard with languages like Pascal, C, and C++. MCL is a prototyper’s dream come true. The language implements the full ANSI Common Lisp standard, including the Common Lisp Object System (CLOS). In addition, MCL contains classes and methods that implement all of the Macintosh user interface features, as well as almost all of the latest features of the Mac OS. The product directly supports interfaces to over 5000 traps, 1000 record definitions, and 13,000 constant definitions, including support for WorldScript, Apple events, Comm Toolbox, QuickDraw GX, QuickTime, and the Apple Open Collaboration Environment (AOCE). It also supports a “Foreign Function” interface that allows you to interface functions written in other languages to your MCL applications. MCL’s current Foriegn Function interface has some limitations (supports only model near) which Digitool reports will be addressed in the PowerPC implementation.

And of course, MCL is a fully object-oriented dynamic language (OODL), so you can create functions that create other functions to your heart’s content. When an object becomes unreferenced, it is disposed and the garbage collector will reuse its memory automatically. All of the latest fascinations in the computer science realm are provided with MCL.

The ease with which applications can be prototyped is one of the major features of the product. Once familiar with the language, you can develop an application prototype in a matter of hours instead of days or weeks. Creating windows, nested views, dialogs, menus, and other Macintosh user interface features is a relatively simple chore. And the interactive debugging tools are also a great help in getting an application written and ready to use.

Just to give you an example of what Lisp code looks like, Listing 1 is a simple MCL program that when executed creates a simple modeless dialog window containing a counter value as a static text item, and two push buttons. When pushed, one of the buttons increments the counter and the other decrements the counter. The full source code to accomplish this is as follows:

Listing 1. MCL Counter Code Example

Counter
;;
;; define a global variable to hold the count value
;;
(defvar *value* 0)

;;
;; incr-item function called when Increment is clicked
;;
(defun incr-item (item)
  (if (<= *value* 999)
    (setq *value* (1+ *value*)))
  (set-dialog-item-text item (format nil "~3,'0D" *value*)))

;;
;; decr-item function called when Decrement is clicked
;;
(defun decr-item (item)
  (if (> *value* 0)
    (setq *value* (1- *value*)))
  (set-dialog-item-text item (format nil "~3,'0D" *value*)))

;;
;; create the dialog window and all of its subviews
;;
(make-instance 'dialog
  :window-title "Increment & Decrement"
  :view-size #@(230 100)
  :view-subviews
  (list
     (make-instance 'static-text-dialog-item
       :view-position #@(75 10)
       :dialog-item-text "Value:")
     (make-instance 'static-text-dialog-item
       :view-position #@(120 10)
       :dialog-item-text "000"
       :view-nick-name 'value)
     (make-instance 'button-dialog-item
       :view-position #@(30 50)
       :dialog-item-text "Increment"
       :dialog-item-action
       #'(lambda (item)
             (incr-item (find-named-sibling item 'value))))
      (make-instance 'button-dialog-item
       :view-position #@(120 50)
       :dialog-item-text "Decrement"
       :dialog-item-action
       #'(lambda (item)
             (decr-item (find-named-sibling item 'value))))))

The code in listing 1 is fairly self-explanatory. The first two function definitions implement the actions necessary to increment and decrement the counter. In this case, I have chosen to ensure that the counter value is always greater than or equal to zero. It is not allowed to become negative. This is an arbitrary decision - it could easily have been allowed to become negative and the tests would not be necessary in that case. When executed, the counter example appears as shown in Figure 1, with the Decrement button being pushed. The format function in the incr-item and decr-item functions causes the counter value to be displayed with leading zeros and with three digits.

Figure 1. MCL Counter Example During Execution

New Features and a Face Lift

When MCL is first placed into execution it opens a single “Listener” window into which you can type statements that are to be compiled and executed immediately. An example of the appearance of the Listener window after the Counter example was executed is shown in Figure 2. The question mark is MCL’s standard prompt for input. The code for the Counter example was stored in a file and was loaded and executed by choosing the Load File command from the File menu.

Figure 2. Listener Window Appearance

The new version of MCL includes a number of new features and a major face-lift for many of its “tool” dialogs (many of which were quite ugly in the previous version). The Apropos tool window, which is used to find functions, variables, classes, or macros is shown in Figure 3. Both the appearance and functionality of this tool is greatly enhanced in the new version.

Figure 3. Apropos Tool Window

The Apropos window shown in Figure 3 also shows the results of searching for references to window-related functions. The WINDOW-CLOSE function is highlighted in the list, indicating that it has been chosen by clicking on the entry. At this point, the function can be inspected, callers of the function can be listed, or documentation for the function can be retrieved. If source code exists for the function, then that also can be shown and its methods can be listed.

In addition to the Apropos tool, there is also a new Trace tool window. This tool is convenient for tracing the execution of a number of functions when a program is being debugged. An example of the appearance of this window and also the Listener window is shown in Figure 4.

Figure 4. Trace and Listener Windows

Figure 4 shows the results of tracing a single execution of the incr-item function. The Trace window shows that the incr-item function is to be traced and that its name and arguments are to be printed (in the Listener window) upon entry, and that its value (result) is to be printed when it exits. The results of the trace action are displayed in the Listener window, which is also shown in the figure. Any number of functions can be traced. The actions upon entry to a function can be to print its name and arguments, break (i.e., halt execution and prompt the user to perform some action at the Listener prompt), or perform no action. The actions upon exit from a function can be to print its name and values (result), break to allow the user to perform some action, or do nothing.

Actions at a break can include choosing to display the values of variables, modifying the source code, or any other related action. Other debugging aids, such as stepping the execution of a function, expression by expression, can be invoked by typing commands into the Listener window. Execution can be easily resumed at a break by typing Command-/ into the Listener window.

In addition to the tools just mentioned, MCL also includes an Inspector window. This is used to inspect the internal features of any MCL object or variable. You can either enter the name of the item to be inspected into the Apropos tool window, choose the type of the item from the pop-up menu, and then click the Inspect button; or you can simply type (inspect item ) into the Listener and an Inspector window showing the appropriate features of the item will be displayed. Figure 5 shows the contents of the Inspector window when the variable *value* (from the Counter example) is being inspected.

Figure 5. Inspector Window

Figure 5 shows the contents of the *value* variable when (inspect *value*) is typed into the Listener. Notice that the value is shown in many different forms, any of which might be of interest to you as the user. Other variations of the appearance of the Inspector window are common when different types of MCL objects are being inspected.

MCL 3.0 also provides the ability to change quite a number of preferences. This is accomplished in a new Preferences window. This window is shown in Figure 6.

Figure 6. Preferences Window

The Preferences window shown in Figure 6 includes a pop-up menu at its top that allows Environment (shown), Compiler, and also Printing preferences to be viewed and changed. Each of the preference items is a global variable (commonly written with leading and trailing asterisk characters to identify it as such). Each of the variables takes on a true or false value. The Documentation pane at the bottom of the window describes the selected preference variable’s function.

Interface Development Toolkit

MCL 3.0, like the previous version, offers a somewhat lame Interface Development Toolkit. This feature allows the development of simple application interfaces that consist of windows or dialogs containing buttons, text fields, and menus. It is clearly a limited facility and is one of the areas where MCL could definitely be improved. While the tool is relatively easy to use and offers a point and click approach to interface design, the number and type of interface elements is very limited. Once an interface is designed, however, you can automatically generate the code to recreate the interface. In that respect, it’s at least a help.

Processes & Process Scheduling

Version 3.0 of MCL includes the ability to create and schedule multiple processes. This feature facilitates the concurrent execution of computational tasks. When MCL starts up it creates two processes. The first, called “Initial,” is responsible for processing events. The second, called ”Listener,” is responsible for accepting input from the user in the Listener window (i.e., it runs the read-eval-print loop). Processes can have assigned priorities and processes with the same priority run in a round-robin fashion. Regardless of the priority assigned to a process, it will not run any longer than the time interval specified when the process was created. The status of all existing processes can be displayed by opening the Process window from the Tools menu. The appearance of the Process window is shown in Figure 7.

Figure 7. Process Window

Figure 7 shows that only the Listener and Initial processes currently exist. If the user’s program had created other processes, thier names and their statistics would have appeared in the Process window as well.

Locks are provided to enable multiple processes to be synchronized. A lock is like a semaphore. When one process obtains a lock, any other process attempting to obtain that lock will block until the lock has been released by the original owner. Processes can also be placed into queues, where they execute in the order in which they were entered into the queue. These are major new features in MCL 3.0.

Saving an Application

MCL 3.0 has a new tool that makes the task of saving an application much easier than the previous save-application function call. The appearance of the Save Application tool’s window is shown in Figure 8.

Figure 8. Save Application Tool Window

The Application class, Menubar, and Error handler choices are selected from pop-up menus in the Save Application window. Values can be typed into the other corresponding fields. There is provision for the contents of a resource file to be copied into the application. The Disable compiler checkbox ensures that the application will not be able to be used for development purposes.

Digitool will also offer a “Redistribution Kit,” for an extra charge. It should be available by the time you read this. The kit will offer the ability to truly excise the compiler from the saved application and reduce the size of the executable file significantly. I have no information about the kit, its cost, or any redistribution licensing costs at this time. You should check with either APDA or Digitool for this information.

A Few Problems Have Surfaced

Although the new MCL 3.0 product appears very stable, a few users have complained of problems when using it. Apparently there is some sort of incompatibility with WorldScript II and Kanji Talk, although Digitool is unable to confirm this. Also, a couple of people have reported problems when running the new product with accelerator boards. There don’t seem to be any serious problems with standard Mac computers (either 68K or PowerMac), except for the possible conflict with WorldScript.

The Bottom Line

I found MCL version 3.0 to be a great improvement over the previous version (2.0.1). However, there are areas in which it could be improved. The Interface Toolkit really needs to be developed into a much more comprehensive tool. In addition, the existing debugging aids, while helpful, are not very friendly and lack the ease of use that other modern development environments provide.

All in all, the MCL 3.0 product is a very worthwhile addition to your arsenal of tools. Its prototyping abilities are unexcelled and the overall breadth of the product is unequaled in any other environment.

In addition to the product itself, MCL 3.0 comes with over 200 megabytes of example code. It comes with the complete “Apple Programmer’s Toolbox Assistant” Quickview application and database on the product’s CDROM.

The product is available only on CDROM; however, Digitool has placed disk images for the product onto the CDROM disc, so if you don’t own a CDROM drive and have a friend who has one, you can copy the disk images and then install the product from floppy disks. However, you’ll also be missing access to the over 200 megabytes of contributed code, so if you’ve ever wanted an excuse to buy a CDROM drive, this could be it.

The Redistribution Kit is $400 regular price, or $350 educational price. The MCL complier may also be licensed, as a scripting language in an application for example, for $2000, or $1600 eudcational. MCL is $295, $135 for students. Digitool, Inc. One Main Street, Cambridge, MA 02142, (617)441-5000.

email: info@digitool.com

web: http://www.digitool.com

 
AAPL
$102.50
Apple Inc.
+0.25
MSFT
$45.43
Microsoft Corpora
+0.55
GOOG
$571.60
Google Inc.
+2.40

MacTech Search:
Community Search:

Software Updates via MacUpdate

VueScan 9.4.41 - 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
Cloud 3.0.0 - File sharing from your men...
Cloud is simple file sharing for the Mac. Drag a file from your Mac to the CloudApp icon in the menubar and we take care of the rest. A link to the file will automatically be copied to your clipboard... Read more
LibreOffice 4.3.1.2 - Free Open Source o...
LibreOffice is an office suite (word processor, spreadsheet, presentations, drawing tool) compatible with other major office suites. The Document Foundation is coordinating development and... Read more
SlingPlayer Plugin 3.3.20.505 - Browser...
SlingPlayer is the screen interface software that works hand-in-hand with the hardware inside the Slingbox to make your TV viewing experience just like that at home. It features an array of... Read more
Get Lyrical 3.8 - Auto-magically adds ly...
Get Lyrical auto-magically add lyrics to songs in iTunes. You can choose either a selection of tracks, or the current track. Or turn on "Active Tagging" to get lyrics for songs as you play them.... Read more
Viber 4.2.2 - Send messages and make cal...
Viber lets you send free messages and make free calls to other Viber users, on any device and network, in any country! Viber syncs your contacts, messages and call history with your mobile device,... Read more
Cocktail 7.6 - General maintenance and o...
Cocktail is a general purpose utility for OS X that lets you clean, repair and optimize your Mac. It is a powerful digital toolset that helps hundreds of thousands of Mac users around the world get... Read more
LaunchBar 6.1 - Powerful file/URL/email...
LaunchBar is an award-winning productivity utility that offers an amazingly intuitive and efficient way to search and access any kind of information stored on your computer or on the Web. It provides... Read more
Maya 2015 - Professional 3D modeling and...
Maya is an award-winning software and powerful, integrated 3D modeling, animation, visual effects, and rendering solution. Because Maya is based on an open architecture, all your work can be scripted... Read more
BBEdit 10.5.12 - Powerful text and HTML...
BBEdit is the leading professional HTML and text editor for the Mac. Specifically crafted in response to the needs of Web authors and software developers, this award-winning product provides a... Read more

Latest Forum Discussions

See All

This Week at 148Apps: August 25-29, 2014
Shiny Happy App Reviews   | Read more »
Qube Kingdom – Tips, Tricks, Strategies,...
Qube Kingdom is a tower defense game from DeNA. You rally your troops – magicians, archers, knights, barbarians, and others – and fight against an evil menace looking to dominate your kingdom of tiny squares. Planning a war isn’t easy, so here are a... | Read more »
Qube Kingdom Review
Qube Kingdom Review By Nadia Oxford on August 29th, 2014 Our Rating: :: KIND OF A SQUARE KINGDOMUniversal App - Designed for iPhone and iPad Qube Kingdom has cute visuals, but it’s a pretty basic tower defense game at heart.   | Read more »
Fire in the Hole Review
Fire in the Hole Review By Rob Thomas on August 29th, 2014 Our Rating: :: WALK THE PLANKUniversal App - Designed for iPhone and iPad Seafoam’s Fire in the Hole looks like a bright, 8-bit throwback, but there’s not enough booty to... | Read more »
Alien Creeps TD is Now Available Worldwi...
Alien Creeps TD is Now Available Worldwide Posted by Ellis Spice on August 29th, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Dodo Master Review
Dodo Master Review By Jordan Minor on August 29th, 2014 Our Rating: :: NEST EGGiPad Only App - Designed for the iPad Dodo Master is tough but fair, and that’s what makes it a joy to play.   | Read more »
Motorsport Manager Review
Motorsport Manager Review By Lee Hamlet on August 29th, 2014 Our Rating: :: MARVELOUS MANAGEMENTUniversal App - Designed for iPhone and iPad Despite its depth and sense of tactical freedom, Motorsport Manager is one of the most... | Read more »
Motorsport Manager – Beginner Tips, Tric...
The world of Motorsport management can be an unforgiving and merciless one, so to help with some of the stress that comes with running a successful race team, here are a few hints and tips to leave your opponents in the dust. | Read more »
CalPal Update Brings the App to 2.0, Add...
CalPal Update Brings the App to 2.0, Adds Lots of New Stuff Posted by Ellis Spice on August 29th, 2014 [ permalink ] | Read more »
Baseball Battle Review
Baseball Battle Review By Jennifer Allen on August 29th, 2014 Our Rating: :: SIMPLE HITTINGUniversal App - Designed for iPhone and iPad Simple and cute, Baseball Battle is a fairly fun baseball game for those looking for something... | Read more »

Price Scanner via MacPrices.net

Labor Day Weekend MacBook Pro sale; 15-inch m...
B&H Photo has the new 2014 15″ Retina MacBook Pros on sale for up to $125 off MSRP. Shipping is free, and B&H charges NY sales tax only. They’ll also include free copies of Parallels Desktop... Read more
Labor Day Weekend iPad mini sale; $50 to $100...
Best Buy has the iPad mini with Retina Display (WiFi models) on sale for $50 off MSRP on their online store for Labor Day Weekend. Choose free shipping or free local store pick up. Price is for... Read more
13-inch 1.4GHz MacBook Air on sale for $899,...
Adorama has the new 2014 13″ 1.4GHz/128GB MacBook Air on sale for $899.99 including free shipping plus NY & NJ tax only. Their price is $100 off MSRP. Read more
It’s Official: Apple Issues Invitations To Se...
Apple has issued one of its characteristically cryptic press invitations for a special event to be held at the Flint Center for the Performing Arts in hometown Cupertino on Sept. 9, 2014 at 10:00 am... Read more
Tablet Shipments To See First On-year Decline...
TrendForce analyst Caroline Chen notes that when the iPad launched in 2010, it was an instant hit and spurred a tablet PC revolution, with tablets so popular that that notebook PC sales stagnated and... Read more
SOBERLINK Releases Apple iOS Compatible Handh...
Cypress, California based SOBERLINK, Inc., creator of the first handheld Breathalyzer designed to improve recovery outcomes, continues to show prominence in the mobile alcohol monitoring space with... Read more
New 21″ 1.4GHz iMac on sale again for $999, s...
Best Buy has the new 21″ 1.4GHz iMac on sale for $999.99 on their online store. Their price is $100 off MSRP. Choose free shipping or free local store pick up. Price is for online orders only, in-... Read more
Smartphone Outlook Remains Strong for 2014, U...
According to a new mobile phone forecast from the International Data Corporation (IDC) Worldwide Quarterly Mobile Phone Tracker, more than 1.25 billion smartphones will be shipped worldwide in 2014,... Read more
Save up to $60 with Apple refurbished iPod to...
The Apple Store has Apple Certified Refurbished 5th generation iPod touches available starting at $149. Apple’s one-year warranty is included with each model, and shipping is free. Many, but not all... Read more
12-Inch MacBook Air Coming in 4Q14 or 2015 –...
Digitimes’ Aaron Lee and Joseph Tsai report that according to Taiwan-based upstream supply chain insiders, Apple plans to launch a thinner MacBook model either at year end 2014 or in 2015, and that... Read more

Jobs Board

*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
Senior Event Manager, *Apple* Retail Market...
…This senior level position is responsible for leading and imagining the Apple Retail Team's global event strategy. Delivering an overarching brand story; in-store, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.