Changeset 8752


Ignore:
Timestamp:
03/08/05 16:33:32 (16 years ago)
Author:
piso
Message:

EVAL-WHEN

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/slime.lisp

    r8749 r8752  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: slime.lisp,v 1.29 2005-03-08 02:22:31 piso Exp $
     4;;; $Id: slime.lisp,v 1.30 2005-03-08 16:33:32 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    443443     `(swank:swank-compile-file ,pathname t) 'display-eval-result)))
    444444
    445 (unless (find-package '#:emacs)
    446   (defpackage #:emacs
    447     (:use #:cl #:ext #:j)))
     445(eval-when (:compile-toplevel :load-toplevel :execute)
     446  (unless (find-package '#:emacs)
     447    (defpackage #:emacs
     448      (:use #:cl #:ext #:j))))
    448449
    449450(let ((emulation (variable-value 'emulation)))
Note: See TracChangeset for help on using the changeset viewer.