Skip to content

GitLab

  • Projects
  • Groups
  • Snippets
  • Help
    • Loading...
  • Help
    • Help
    • Support
    • Community forum
    • Submit feedback
    • Contribute to GitLab
  • Sign in / Register
C
cl-launch
  • Project overview
    • Project overview
    • Details
    • Activity
    • Releases
  • Repository
    • Repository
    • Files
    • Commits
    • Branches
    • Tags
    • Contributors
    • Graph
    • Compare
  • Issues 3
    • Issues 3
    • List
    • Boards
    • Labels
    • Service Desk
    • Milestones
  • Merge Requests 1
    • Merge Requests 1
  • Operations
    • Operations
    • Incidents
  • Analytics
    • Analytics
    • Repository
    • Value Stream
  • Wiki
    • Wiki
  • Members
    • Members
  • Collapse sidebar
  • Activity
  • Graph
  • Create a new issue
  • Commits
  • Issue Boards
  • xcvb
  • cl-launch
  • Issues
  • #3

Closed
Open
Opened Sep 04, 2016 by Elias Pipping@epipping

Mixing quicklisp and eval makes standard-output disappear

Please consider the following:

cl --eval '(dolist (stream-symbol (list :*standard-output* :*error-output*)) (format (symbol-value (find-symbol (symbol-name stream-symbol))) "Hello on ~a~%" stream-symbol))'
Hello on *STANDARD-OUTPUT*
Hello on *ERROR-OUTPUT*

If I enable quicklisp, I get

cl -Q --eval '(dolist (stream-symbol (list :*standard-output* :*error-output*)) (format (symbol-value (find-symbol (symbol-name stream-symbol))) "Hello on ~a~%" stream-symbol))'
Hello on *ERROR-OUTPUT*

This is related to the following excerpt from cl-launch.sh:

(defun load-sys (system)
  (if (find-package :quicklisp)
      (let ((*standard-output* (make-broadcast-stream)))
        (symbol-call :quicklisp :quickload system))
      (asdf:load-system system)))

I do not know what the proper fix is, though.

Assignee
Assign to
None
Milestone
None
Assign milestone
Time tracking
None
Due date
None
Reference: xcvb/cl-launch#3