Changeset 11931 for release/1.3


Ignore:
Timestamp:
Apr 9, 2009, 11:24:30 PM (10 years ago)
Author:
gb
Message:

Propagate r11929,r11930 to 1.3 branch.

Location:
release/1.3/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/1.3/source/level-1/l1-application.lisp

    r10942 r11931  
    186186         (set-terminal-encoding (character-encoding-name encoding))))))
    187187
     188(defmethod repl-function-name ((a application))
     189  "Return the name of a function that should be run in a TTY-like
     190listener thread (if that concept makes sense); return NIL otherwise."
     191  nil)
     192
    188193(defmethod application-version-string ((a application))
    189194  "Return a string which (arbitrarily) represents the application version.
     
    268273       
    269274
     275(defmethod repl-function-name ((a lisp-development-system))
     276  'listener-function)
     277
    270278(defmethod toplevel-function ((a lisp-development-system) init-file)
    271   (let* ((sr (input-stream-shared-resource *terminal-input*)))
     279  (let* ((sr (input-stream-shared-resource *terminal-input*))
     280         (f (or (repl-function-name a) 'listener-function)))
    272281    (with-slots (initial-listener-process) a
    273282      (setq initial-listener-process
     
    281290             #'(lambda ()
    282291                 (startup-ccl (and *load-lisp-init-file* init-file))
    283                  (listener-function)
     292                 (funcall f)
    284293                 nil)
    285294             :close-streams nil
  • release/1.3/source/lib/ccl-export-syms.lisp

    r11592 r11931  
    5858     toplevel-loop
    5959     toplevel-function
     60     repl-function
    6061     toplevel
    6162     *listener-prompt-format*
Note: See TracChangeset for help on using the changeset viewer.