~ubuntu-branches/ubuntu/intrepid/ecl/intrepid

« back to all changes in this revision

Viewing changes to src/lsp/mislib.lsp

  • Committer: Bazaar Package Importer
  • Author(s): Albin Tonnerre
  • Date: 2008-06-20 18:00:19 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20080620180019-7fbz1ln5444vtkkr
Tags: 0.9j-20080306-2ubuntu1
* Enabled unicode support. (Closes: LP #123530)
* Modify Maintainer value to match the DebianMaintainerField specification.

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
;;;;  -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*-
 
2
;;;;
1
3
;;;;  Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya.
2
4
;;;;  Copyright (c) 1990, Giuseppe Attardi.
3
5
;;;;
236
238
}"
237
239
                 :one-liner nil)))
238
240
 
239
 
(defun get-universal-time ()
240
 
  #-ecl-min
241
 
  (ffi:c-inline () () :object "
242
 
{
243
 
        cl_object utc = ecl_make_integer(time(0));
244
 
        @(return) = ecl_plus(utc, cl_core.Jan1st1970UT);
245
 
}"
246
 
                :one-liner nil))
247
 
 
248
241
(defun get-decoded-time ()
249
242
  "Args: ()
250
243
Returns the current day-and-time as nine values: