maximvl

Local copy of remote index is up-to-date and will be used.

 * IMPORTANT: 14 news items need reading for repository 'gentoo'.
 * Use eselect news to read news items.


These are the packages that would be merged, in order:

Calculating dependencies  ..... done!

maximvl

binary_to_number(X) ->
    try erlang:binary_to_integer(X)
    catch error:badarg ->
            erlang:binary_to_float(X)
    end.

binary_to_number(X) ->
    case binary:match(X, <<$.>>) of
        nomatch -> erlang:binary_to_integer(X);
        _ -> erlang:binary_to_float(X)

maximvl

>> xs: []
== []
>> use [x] [
[    x: 5
[    append xs 'x
[    ]
== [x]
>> use [x] [
[    x: 100
[    append xs 'x

maximvl

 ~  aplay -l
**** List of PLAYBACK Hardware Devices ****
card 0: PCH [HDA Intel PCH], device 0: ALC898 Analog [ALC898 Analog]
  Subdevices: 0/1
  Subdevice #0: subdevice #0
card 0: PCH [HDA Intel PCH], device 1: ALC898 Digital [ALC898 Digital]
  Subdevices: 1/1
  Subdevice #0: subdevice #0
card 1: NVidia [HDA NVidia], device 3: HDMI 0 [HDMI 0]
  Subdevices: 1/1

maximvl

;;;; common-cfg.lisp

(in-package #:common-cfg)

;;; "common-cfg" goes here. Hacks and glory await!

(defparameter *config* (make-hash-table))

(define-condition value-not-found (error) 
  ((text :initarg :text :reader text)))

maximvl

(defun read-until (stream condition &key (buff-size 100))
  (let ((buffer (make-array buff-size))
        (data (make-array 0))
        (readed 0)
        (total-readed 0)
        (result nil))
    (loop
       do (progn
            (setf readed (read-sequence buffer stream))
            (incf total-readed readed)

maximvl

(handler-case (handler-bind ((ql-http::cbuf-progress #'(lambda (c)
                                              (let ((r (find-restart 'continue c)))
                                                (format t "~&RESTAR: ~a" r)
                                                (when r (invoke-restart r))))))
                      (ql:quickload "clon"))
        (t (e) e))

maximvl

;;;; clam.lisp

(in-package #:clam)

;;; "clam" goes here. Hacks and glory await!

;; (cl:import '(cl:import cl:loop cl:let cl:defun cl:defmacro))

(cl:defun is-function (s)
  (cl:let ((fun (cl:handler-case (cl:symbol-function s)

maximvl

--- main.lisp   2015-06-18 14:57:19.418489075 +0300
+++ main-my.lisp        2015-06-17 14:30:03.695628349 +0300
@@ -111,11 +111,14 @@
 throwing an error if it was already set, or if they aren't a string. Used for
 elements like <title> and <link>, which shouldn't crop up twice."
   (let ((string (car (xmls:xmlrep-children node))))
-    (unless (stringp string)
-      (error 'rss-parse-error
-             :msg (format nil "Got ~A when expecting string for contents of <~A>"
-                          string name)))

maximvl

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char** argv) {
  int *p1, *p2;
  {
    int x = 1;
    p1 = &x;
  }
  {