Changeset 12122


Ignore:
Timestamp:
May 24, 2009, 7:27:12 AM (10 years ago)
Author:
gb
Message:

Add a "Default Package" Hemlock variable to lisp-mode buffers.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/hemlock/src/lispmode.lisp

    r12099 r12122  
    18741874      "The package used for evaluation of Lisp in this buffer."
    18751875      :buffer buffer
    1876       :value "CL-USER"
    1877       :hooks (list 'package-name-change-hook))))
     1876      :value nil
     1877      :hooks (list 'package-name-change-hook)))
     1878  (unless (hemlock-bound-p 'default-package :buffer buffer)
     1879    (defhvar "Default Package"
     1880      "The package to use if the current package doesn't exist or isn't set."
     1881      :buffer buffer
     1882      :value (package-name *package*))))
    18781883
    18791884
Note: See TracChangeset for help on using the changeset viewer.