Changeset 16158


Ignore:
Timestamp:
Aug 20, 2014, 3:33:29 PM (5 years ago)
Author:
rme
Message:

Display marketing blurb in listener (from trunk).

Location:
branches/1.9-appstore/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/1.9-appstore/source

  • branches/1.9-appstore/source/level-1/l1-boot-lds.lisp

    r14995 r16158  
    5959              (:load (load-file param)))))))))
    6060
     61(defloadvar *did-show-marketing-blurb* nil)
     62
     63(defparameter *marketing-blurb* "
     64CCL is developed and maintained by Clozure Associates. For more information
     65about CCL visit http://ccl.clozure.com.  To enquire about Clozure's Common Lisp
     66consulting services e-mail info@clozure.com or visit http://www.clozure.com.
     67
     68")
    6169
    6270(defun listener-function ()
    63   (progn
    64     (unless (or *inhibit-greeting* *quiet-flag*)
    65       (format t "~&Welcome to ~A ~A!~%"
    66               (lisp-implementation-type)
    67               (lisp-implementation-version)))
    68     (toplevel-loop)))
    69 
     71  (unless (or *inhibit-greeting* *quiet-flag*)
     72    (format t "~&Welcome to ~A ~A!~%"
     73            (lisp-implementation-type)
     74            (lisp-implementation-version))
     75    (unless *did-show-marketing-blurb*
     76      (write-string *marketing-blurb* t)
     77      (setq *did-show-marketing-blurb* t)))
     78  (toplevel-loop))
    7079
    7180(defun make-mcl-listener-process (procname
Note: See TracChangeset for help on using the changeset viewer.