Ignore:
Timestamp:
Sep 26, 2007, 2:53:18 AM (13 years ago)
Author:
gb
Message:

Merge version-tracking changes from trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0709/ccl/lib/misc.lisp

    r7205 r7294  
    300300  (documentation c 'type))
    301301
    302 
    303302(defmethod (setf documentation) ((new t)
    304303                                 (c structure-class)
    305304                                 (doc-type (eql 't)))
    306305  (setf (documentation c 'type) new))
    307 
    308 (defmethod documentation ((slot slot-definition) (doc-type (eql 't)))
    309   (standard-slot-definition.documentation slot))
    310 
    311 (defmethod (setf documentation) (new (slot slot-definition) (doc-type (eql 't)))
    312   (setf (standard-slot-definition.documentation slot) new))
    313 
    314 
    315306
    316307;;; This is now deprecated; things which call it should stop doing so.
     
    705696
    706697(%fhave 'df #'disassemble)
     698
     699(defun local-svn-revision ()
     700  (or
     701   ;; svn2cvs uses a .svnrev file to sync CVS and SVN; if present,
     702   ;; it contains the svn revision in decimal.
     703   (with-open-file (f "ccl:\\.svnrev" :direction :input :if-does-not-exist nil)
     704     (when f (read f)))
     705   (with-output-to-string (s)
     706    (multiple-value-bind (status exit-code)
     707        (external-process-status
     708         (run-program "svnversion"  (list  (native-translated-namestring "ccl:") "/trunk/ccl"):output s))
     709      (when (and (eq :exited status) (zerop exit-code))
     710        (with-input-from-string (output (get-output-stream-string s))
     711          (let* ((line (read-line output nil nil)))
     712            (when (and line (parse-integer line :junk-allowed t) )
     713              (return-from local-svn-revision line)))))))))
Note: See TracChangeset for help on using the changeset viewer.