cl-grep

Simple implementation of grep
Log | Files | Refs

log.lisp (423B)

      1 (in-package :cl-grep)
      2 
      3 ;; Make implementation gated behind feature flag
      4 
      5 #+logging
      6 (defun log-setup ()
      7   (vom:config t :info)
      8   (setf vom:*log-stream* (open "./cl-grep.log" :direction :output
      9                                :if-exists :overwrite
     10                                :if-does-not-exist :create)))
     11 #-logging
     12 (defun log-setup ()
     13   nil)
     14 
     15 (defmacro lo (&rest args)
     16   #+logging
     17   `(vom:info ,@args)
     18   #-logging
     19   nil)
     20